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Wstęp 


Język Basic powstał w 1964 roku w Dartmouth College w Stanach 
Zjednoczonych. Został on opracowany pod kierownictwem profesorów 
J.G. Kemeny'ego i T.F. Kurtza. Należy do grupy języków konwersacyj- 
nych i jest przeznaczony przede wszystkim do rozwiązywania proble- 
mów naukowo-technicznych i ekonomicznych. Struktura języka umożli- 
wia konwersacyjne wprowadzanie tekstu programu oraz jego kolejne 
uruchamianie po usunięciu sygnalizowanych błędów. Prezentowany 
język Basic jest zmodyfikowaną wersją języka Microsoft-Basic dla 
TRS-80L2 stosowanego też w mikrokomputerze MERITUM. 
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Opis programu w języku Basic 


Program w języku Basic składa się z linii. Każda linia programu może 
zawierać instrukcje realizujące poszczególne kroki algorytmu (instrukcja 
czynna) lub instrukcje przekazujące językowi Basic informacje o pro- 
gramie (instrukcja bierna). Linie programu zawierające instrukcje języka 
Basic muszą zaczynać się liczbami — numerami linii. Liczby te określają 
kolejność wykonywania instrukcji programu, od linii o najniższym 
numerze do linii o najwyższym numerze, jeżeli nie wystąpią instrukcje 
skoku. Kolejność wprowadzania linii programu jest dowolna. Wprowa- 
dzenie linii programu o numerze linii już wprowadzonej wcześniej 
powoduje usunięcie treści linii wcześniejszej i zastąpienie jej nową. 
Wprowadzenie tylko numeru linii powoduje usunięcie z programu linii 
o podanym numerze. Przy pisaniu programu warto numerować linie 
z pewnym krokiem, np.: 5, 10, itp. Umożliwia to w przypadku wprowa- 
dzenia zmian do programu wpisanie nowych linii bez konieczności 
modyfikacji linii już istniejących. 


2 
Alfabet języka Basic-COBRA 


W każdym języku jest konieczne określenie zbioru znaków, których 
używanie jest dopuszczalne. Możemy podzielić je wstępnie na trzy 
grupy: 


l. Litery alfabetu łacińskiego: 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
2. Cyfry: 

0123456789 


3. Symbole: 
+ -/=[ (operatory arytmetyczne) 
=> < (operatory relacji) 


AE (znaki separatorów) 
: (kropka dziesiętna) 
++ ?$ QY.() — (pozostałe symbole) 
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Informacje o składni języka Basic 


Możemy wyróżnić następujące elementy składni języka Basic-COBRA: 


a) zmienne (proste, łańcuchowe, tablicowe) 

b) operatory (arytmetyczne, logiczne, relacji) 

c) funkcje matematyczne 

d) instrukcje: 
— wejścia-wyjścia 
— organizacyjne i sterujące przebiegiem programu 
— operacji na łańcuchach 


3.1. Definicje typów zmiennych 

W celu rozróżnienia wielkości występujących w programie nadaje się im 

nazwy. Zmienńa więc jest nazwą, która może służyć do przechowywania 

wartości numerycznych lub sekwencji znaków (łańcuchów) w kodzie 

ASCII. 

Zasady tworzenia zmiennych: 

— nazwa zmiennej musi zaczynać się od dużej litery (A = Z); 

— nazwa musi składać się z liter lub litery i cyfry (0--9); 

— nazwa może być dwuznakowa, jak np. AA, AZ,AI, A7itd.; 

— nazwa nie może zawierać ciągu znaków będącego słowem kluczo- 
wym (tzn. nazwą funkcji, instrukcji, zlecenia itd. używanych 
w opisywanej wersji języka). 


W przypadku podania nazwy dłuższej niż dwa znaki (np. BASIC) tylko 
dwa pierwsze znaki "*BA” będą używane przez Basic do rozróżniania 
nazwy. Nazwy "CO, "COBRA, "COP oznaczają tę samą zmienną. 

Wśród zmiennych prostych numerycznych rozróżnia się następujące typy 
zmiennych: 

a) całkowite (integer) 

b) pojedynczej precyzji (single precision) 

c) podwójnej precyzji (double precision) 

Zmienne te w zależności od wymogów programu będziemy oznaczać 
następującymi znakami deklaracji: 

% >= liczby całkowite z zakresu — 32768 = 32767, np. SY,, A2%; 

| — pojedynczej precyzji (6 cyfr znaczących), np. S!, A2!; 

++ — podwójnej precyzji (16 cyfr znaczących), np. S ++, A2 $; 

D — podwójnej precyzji w notacji naukowej, np. B = 3.1499977D4. 

Wszystkie zmienne bez znaków deklaracji (Y,, !, 4) będą traktowane 
jako zmienne pojedynczej precyzji. Te same nazwy zmiennych z różnymi 
znakami deklaracji będą traktowane jako różne zmienne, np. AV, = 
A!=2A+ =3. 

Powyższa zasada dotyczy innych funkcji, w których definicji posłu- 
gujemy się zmiennymi numerycznymi. 

Oprócz zmiennych numerycznych istnieje typ zmiennej łańcuchowej 
oznaczany znakiem dolara. 


$ łańcuch do 255 znaków, np. A$ = "COBRA", A2$ ="ANNA". 


U 


W przypadku konieczności wprowadzenia dużej ilości zmiennych sto- 
suje się macierze. Deklarowane w zależności od rodzaju zmiennych, 
mogą zawierać liczby całkowite, pojedynczej precyzji, podwójnej pre- 
cyzji oraz łańcuchy, kB: DIM A% (7), DIM A! (3), DIMA + (11) DIM 
A$ (33). 

Każdy element macierzy jest zmienną indeksowaną, a jego nazwa składa 
się z nazwy macierzy i indeksów umieszczonych w nawiasach. Pierwszy 
ndeks określa wiersz, drugi — kolumnę, a trzeci warstwę. Istnieje 
możliwość deklaracji macierzy o większej ilości indeksów niż trzy. 
Praktycznie maksymalna liczba indeksów nie przekroczy ośmiu. 

Po zainicjowaniu programu Basic przy wersji 48 kbajtów, ilość bajtów 
pamięci operacyjnej dostępnej dla języka Basic wynosi 31701. 
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Po deklaracji: DIM A (2,2,2,2,2,2,2,2), dla programu Basic zostanie tylko 
5435 bajtów. 


G:0 CR. 

PRINT MEM CR. 

31701 

DIM A (2,2,2,2,2,2,2,2) CR 
PRINT MEM CR. 

5435 


3.2. Operatory 


3.2.1. Operatory arytmetyczne 


Wyrażenia arytmetyczne są budowane ze stałych, zmiennych oraz 
operatorów arytmetycznych i nawiasów. Operatory, jakie mogą występo- 
wać w wyrażeniach arytmetycznych, to: 


+ dodawanie 
— odejmowanie 
/ dzielenie 
* mnożenie 
[  potęgowanie 
3.2.2. Operatory logiczne 
Operatory logiczne, do których zaliczają się: 
AND — iloczyn logiczny 
OR — suma logiczna 
NOT — negacja 
służą do budowy wyrażeń logicznych, np. 
251F A=7 AND B=3 THEN GOSUB 1000 CR 
30IF A=0 OR B=0 THEN 1200 CR. 


Te same operatory logiczne mogą również być użyte do wykonywania 
operacji boole'owskich na bajtach i bitach, jak np.: 

10A=133 CR. 

20 PRINT A AND 127 CR_ 

RUN CR. 
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Badanie stanów binarnych układów wejściowych np. po instrukcji INP 
(N) umożliwia nam obsługę tych urządzeń bez konieczności użycia 
procedur napisanych w języku maszynowym mikroprocesora. Podczas 
wykonywanych operacji logicznych operandy podlegają konwersji na 
16-bitowe liczby całkowite ze znakiem (—32768--32767). Operacje 
przeprowadzane są bit po bicie, jak to pokazują tablice 3.1 i 3.2. 


= aaba  ] 3.1 


[| AANDB_ | 
[A _|_B | wyNik | A | B | wyNik | A | WYNIK | 


0 1 
l 0 


Tablica 3.2 


[| A_ | OPERATOR | B | WYNIK | __ KOMENTARZ | 


—<- OE 
= m OO 


Uwaga. Kropki przed znakami w komentarzu oznaczają zera aż do 15 bitu. Bit 
16 jest bitem znaku. 


3.2.3. Operatory relacji 


Operatory relacji służą do zapisu wyrażeń logicznych, które są przezna- 
czone do porównania wartości dwóch wyrażeń. Wynikiem tego porów- 
nania jest wartość logiczna prawda (true) lub fałsz ( false). 
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Wyrażenia logiczne skonstruowane przy użyciu operatorów relacji 
mogą być wykorzystane w warunkowych instrukcjach sterujących. 
Do operatorów relacji zaliczamy: 

= znak równości 

<> lub > < nie równe (różne) 


< mniejsze 
<= lub =< mniejsze lub równe (nie większe) 
> większe 


>= lub => większe lub równe (nie mniejsze) 

Podany przykład przedstawia poprawną konstrukcję wyrażenia logi- 
cznego zapisanego przy pomocy operatorów relacji i operatora logiczne- 
go w instrukcji warunkowej IF: 


201IF A=B AND B<C THEN GOSUB 100 
Niedopuszczalna jest następująca konstrukcja wyrażenia: 
20I1F A=B<C THEN GOSUB 100 


Wymienione operatory relacji zachodzących między wyrażeniami aryt- 
metycznymi mogą być użyte do konstrukcji wyrażeń logicznych zawiera- 
jących zmienne łańcuchowe i interpretacja ich jest wtedy następująca: 


= równość łańcuchów 


<> nierówność łańcuchów 

< poprzedza alfabetycznie 

<= poprzedza alfabetycznie lub równy 
> następuje alfabetycznie 

=> następuje alfabetycznie lub równy 
+ składanie łańcuchów 


Przykłady relacji: 


1) ABC” <"ABD” 
Łańcuch "ABC" poprzedza alfabetycznie "ABD", ponieważ litera C po- 
przedza literę D. 


2) 10A$="CO”:B$="BRA" CR_ 
20 PRINT A$ + B$ CR. 
RUN CR. 
COBRA 


3) 10 DATA KO,T,ZA,S,BZA,BOL 
20 FOR I=1 TO 6 
30 READ A$(1) 
40 NEXT I 
50 FOR I=1 TO 5 
60 PRINT A$(1) + A$(I +1) 
70 NEXT I 
RUN 
KOT 
KOZA 
KOS 
KOBZA 
KOBOL 
Przykłady powyższe ilustrują składanie łańcuchów. 


3.2.4. Kolejność wykonywania działań 
Biorąc pod uwagę wszystkie operatory (arytmetyczne, logiczne, relacji), 
kolejność wykonywania działań jest następująca: 


1. [ potęgowanie 

2%, mnożenie i dzielenie 

3, <= dodawanie i odejmowanie 
4. <,>,=,<=,=>,<> relacje 

5. NOT negacja 

6 AND iloczyn logiczny 

7. OR suma logiczna 


Jeżeli uwzględnimy operację zmiany znaku, to jest ona w kolejności po 
potęgowaniu, a przed mnożeniem i dzieleniem. Jeżeli wyrażenie zawiera 
kilka operacji na tym samym poziomie, to będą one wykonywane od 
lewej strony do prawej. Kolejność działań można zmienić za pomocą 
nawiasów. Jako pierwsza zostanie wykonana operacja z najbardziej 
zagłębionej pary nawiasów. 


3.3. Funkcje matematyczne 

Każdy język programowania dysponuje funkcjami matematycznymi, 
które mogą być użyte w wyrażeniach arytmetycznych. Wywołanie 
funkcji uzyskuje się przez podanie jej nazwy oraz jej argumentu w 
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nawiasie. W czasie działania programu najpierw następuje obliczenie 
wartości argumentu, jeżeli występuje w postaci wyrażenia, a potem samej 


funkcji. 


Poniżej zostały opisane funkcje matematyczne dostępne w tej implemen- 
tacji języka Basic. Dają one wynik w pojedynczej precyzji (6 cyfr). 
Funkcje CINT, CDBL dają wynik o dokładności zależnej od funkcji. 
Funkcje ABS, FIX, INT dają wynik o dokładności zależnej od argu- 


mentu. 


ABS(X) 


CINT(X) — 


2 Basic 


oblicza wartość bezwzględną argumentu: 


RWSGŚ X dla X =>0 
"|-X dla X<0 


Przykłady: 
ABS(7) = 7 ABS(= 7) = -(-7)=7 


oblicza arcustangens argumentu X. Otrzymany wynik 
jest podany w radianach. Aby otrzymać wynik w 
stopniach należy pomnożyć go przez liczbę 57.29578. 


wyznacza odpowiednik podwójnej precyzji argumentu 
X. Funkcja ta jest stosowana w celu wymuszenia 
operacji podwójnej precyzji na argumentach całkowi- 
tych lub argumentach pojedynczej precyzji. Wyznaczo- 
na wartość ma l6'cyfr, lecz tylko cyfry zawarte w 
argumencie będą znaczące. 


Przykład: 


10 FOR 1Y,=l1 TO 3:PRINT 1/CDBL(IY,):NEXT IY, 
RUN 

1 

5 

.3333333333333333 


oblicza największą liczbę całkowitą nie większą od 
wartości argumentu. Argument jest ograniczony do 
zakresu liczb całkowitych z przedziału (-„32768, 
32767) 
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COS(X) — 


CSNG(X) — 


EXP(X) — 


INT(X) — 


Przykłady: 
CINT(— 32.3) = —33 CINT(32.3) = 32 


oblicza cosinus argumentu X. Argument X musi być 
podany w radianach. Jeżeli X podany jest w stopniach, 
to wtedy używamy następującego wyrażenia: 
COS(X+.0174533) 


Przykład: 


10 FOR I=1 TO 5 
20 PRINT COS(I/5) 
30 NEXT I 

RUN 

980067 

921061 

„825336 

.696707 

540302 


wyznacza z argumentu X o podwójnej precyzji jego 
odpowiednik pojedynczej precyzji. Funkcja zostawia 6 
cyfr znaczących z zaokrągleniem typu 4/5. Jeżeli na 
siódmej pozycji licząc od pierwszej cyfry w argumencie 
X jest cyfra >= 5, to po funkcji CSNG(X) na pozycji 
szóstej będzie cyfra większa o 1 od cyfry w argumencie 
na tej samej pozycji. Jeżeli cyfra na siódmej pozycji jest 
mniejsza od 5, to po funkcji CSNG(X) wynik będzie 
równy pierwszym sześciu cyfrom argumentu o podwój- 
nej precyzji. 


funkcja wykładnicza (e*). Podnosi podstawę logarytmu 
naturalnego e x 2.71828 do potęgi X. Jest funkcją 
odwrotną do LOG(X). 


oblicza wartość całkowitą argumentu X. Obliczona 
wartość INT(X) jest równa lub mniejsza od argumentu 
X. Stosowanie funkcji nie ogranicza argumentów do 
przedziału — 32768 = 32767. 


Przykłady: 
INT(3.3) = 3 INT(— 3.3) = —4 


FIX(X) — wyznacza część całkowitą argumentu X: 
INT(X)dlaX >=0 
FIX(X) = 
SGN(X):INT(ABS(X)) dla X <0 
Przykłady: 
FIX(3.3)=3 FIX(—3.3)= —3 


LOG(X) — oblicza wartość logarytmu naturalnego z X. 
Przykłady: 


1) LOG(5) = 1.60944 
LOG(10) = 2.30259 


2) S$A=0 

10 FOR I=1 TO 5 

15 A=A+LOGI(I) 

20 NEXT I 

25 PRINT EXP(A) 

RUN 

120 

RND(X) — funkcja generatora liczb pseudolosowych. Argument X 

określa sposób inicjalizacji generatora oraz wyznacza- 
nia liczby RND(X). 
RNDY(0) oblicza wartość z przedziału (0,1) w pojedyn- 
czej precyzji. Dla X należącego do zbioru liczb całko- 
witych z zakresu I = 32767, funkcja RND(X) oblicza 
wartość z powyższego zakresu. | 
Przykłady: 
1) IOFORI=1 TOS: PRINT RND(O) : NEXT I 

RUN 

„262145 

06800311 

930171 

„368143 

„140917 


SGN(X) — 


SIN(X) — 


SQR(X) — 
TAN(X) — 


RANDOM — 


a[X — 


20 


2) IOFORI=1TO5S:PRINTRND(30000): NEXTI 
RUN 


24058 
27009 
29076 
15690 
805 
funkcja przybiera trzy wartości: 
—| dla X <0 
SGN(X)=<40 dla X =0 
1 dla X>0 


oblicza sinus argumentu X. Argument X musi być 
podany w radianach. 

oblicza pierwiastek kwadratowy z argumentu X. 
oblicza tangens argumentu X. Argument musi być 
podany w radianach. 

ma charakter instrukcji i służy do uruchomienia genera- 
tora liczb pseudolosowych. Umieszczenie RANDOM 
na początku programu, zapewni generowanie powta- 
rzalnej sekwencji liczb pseudolosowych za pomocą 
funkcji RND(X) każdorazowo po uruchomieniu pro- 
gramu. 

podnoszenie liczby ”a” do potęgi X. Funkcja umożliwia 
też obliczanie pierwiastka dowolnego stopnia. 
Przykłady: 


1) 4,4[ 4.4 = 677.941 
4.4[ (1 4.4) = 1.40036 
1.5[ 27 = 56815.4 
10000[.01 = 1.09648 
2) 10 FOR I=1 TO5: PRINT 2[I: NEXTI 
RUN 


3.4. Instrukcje języka Basic 
3.4.1. Instrukcje wyprowadzania znaków 
PRINT lista-elementów-do-wydruku 


Do wyprowadzania wyników obliczeń i prowadzenia przez użytkownika 
konwersacji z programem służy instrukcja wyświetlania znaków na 
ekranie monitora. Instrukcja ta składa się ze słowa PRINT, po którym są 
podane elementy do wydruku oddzielone separatorami. Basic dopu- 
szcza znak zapytania *”?” zamiast słowa PRINT. Elementami do 
wyprowadzenia mogą być: 

— zmienne 

— wyrażenia arytmetyczne 

— łańcuchy 

— tabulatory 


Jako separatory są używane przecinek i średnik. 

Przecinek umieszczony między dwoma elementami przeznaczonymi do 

wyprowadzenia, powoduje ich wyświetlenie w kolejnych sektorach 

szesnastopolowych tej samej linii ekranu. Jeżeli jako separator użyty jest 

średnik, to elementy są wyprowadzane obok siebie, ale z zachowaniem 

następujących reguł: 

— każda liczba dodatnia jest poprzedzona spacją (czystym polem) 
a ujemna znakiem minus; 

— po każdej liczbie jest drukowana jedna spacja; 

— wartości są drukowane od pierwszej wolnej pozycji (dosuwanie 
w lewo); 

— przed łańcuchami i po łańcuchach brak znaku spacji. 


Powyższe zasady dotyczą też sytuacji, kiedy elementy przeznaczone do 
wyprowadzenia znajdują się w kolejnych liniach programu i w każdej 
linii po ostatnim elemencie występuje przecinek lub średnik. Jeżeli po 
ostatnim elemencie w danej linii nie ma separatora, to następny wydruk 
odbędzie się w nowej linii. Jeżeli instrukcja wyprowadzania skłąda się 
tylko ze słowa PRINT inie posiada listy-elementów, to po wykonaniu jej 
nastąpi zmiana linii i kursor zajmie pozycję na początku nowej linii. 

Liczby (wartości wyrażeń arytmetycznych) są wyprowadzane następu- 


jąco: 
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— liczby całkowite mające od I do 6 cyfr wyprowadzane są jako liczby 
całkowite; 
liczby niecałkowite są przedstawiane jako ułamek dziesiętny 
o sześciu cyfrach (w pojedynczej precyzji), przy czym zera kończące 
liczbę nie są wyprowadzone; 
liczby, które nie dadzą przedstawić się w jednej z poprzednich 
postaci, są wyprowadzane w postaci z wykładnikiem, tj. jedna cyfra 
przed kropką dziesiętną i pięć po kropce, litera E, wykiadnik potęgi 
poprzedzony znakiem. 


Przykłady: 

I)IOA=1:B=—3:A$="ABC"”: B$="DEF" 
20 PRINT A,B;A$ 
30 PRINT A;B;A$ 
40 PRINT A$;B$ 


RUN 

I —3 ABC 

1! -3 ABC 

ABCDEF 

2) Liczba Postać wydruku 

3.0 3 
7.3120 7.312 

—17.0 —17 
0.33 .33 
1234567 1.23457E +06 
0.00011 1.1E—04 


PRINT Q pozycja, lista-elementów 


Dopuszczalne są następujące formy zapisu instrukcji: 

PRINTGQ100, A 

PRINT 2100 ,A 

PRINTa 100 ,A 

PRINT Q 100,A 

gdzie parametr pozycja zawiera się w przedziale: 0 < pozycja < 768. 
Instrukcja powoduje wyprowadzenie na ekran listy-elementów począw- 
szy od określonej pozycji ekranu. 
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Przy organizacji ekranu 32 * 24, instrukcja PRINTGQ64, "ABC" powo- 
duje wyświetlenie liter ABC począwszy od pierwszego pola w trzeciej 
linii ekranu. 


PRINT TAB (wyrażenie-arytmetyczne) 


Instrukcja powoduje przesunięcie kursora na pozycję określoną wyra- 
żeniem arytmetycznym. Po napotkaniu powyższej instrukcji działanie jest 
następujące: 
I. Obliczana jest wartość wyrażenia arytmetycznego. 
. Określana jest część całkowita. 
. Po przekroczeniu liczby 255 jest sygnalizowany błąd FC. 
. Jeżeli wartość wyrażenia arytmetycznego jest równa A, to 
dla A<3I TAB(A) 
dla 3I < A<255 TAB(A-INT(A/32) + 32) 


R > W 


Przykład: 
I0FOR I= —-8TO8: PRINT TAB(I + [/2.2); *** : NEXT 
Program wykreśli parabolę za pomocą znaku gwiazdki. 


PRINT USING łańcuch; lista-elementów. 


Bardzo często rozmieszczenie wyprowadzanych wyników możliwe « 
uzyskania za pomocą separatorów jest niewystarczające. Niejednokrot- 
nie podczas wyprowadzania tablic wyników niektóre parametry chcemy 
uzyskać z dokładnością np. do dwóch miejsc po kropce dziesiętnej 
i dwóch miejsc przed kropką lub np. trzech cyfr plus wykładnik potęgi. 
Takie możliwości daje nam instrukcja PRINT USING, gdzie łańcuch 
określa wzorzec wydruku. Wzorzec ten musi być zadeklarowany w linii 
programu o numerze mniejszym niż numer linii programu z instrukcją 
PRINT USING. Do tworzenia łańcucha wzorca używamy następują- 
cych znaków: 
+ + —., $$»x* «»x$![ YV,n-spacjiy, 
4k Określa pozycję cyfry danej zmiennej numerycznej. Ilość uży- 
tych znaków określa liczbę cyfr wydruku. Jeżeli liczba znaków 
na lewo od kropki dziesiętnej będzie większa niż liczba cyfr, 
to na każdej wolnej pozycji będzie wydrukowana spacja. Je- 
żeli liczba znaków na prawo od kropki będzie większa niż 
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>k >k == 


x*x$ ię, 


liczba cyfr, to na każdej wolnej pozycji będzie wydrukowane 
zero. 

Postawiony znak "+" na początku pola lub na końcu wzorca 
wymusza wydruk znaku liczby przed pierwszą cyfrą znaczącą 
lub za ostatnią. 

Znak *—” umieszczony na końcu wzorca powoduje wydruko- 
wanie spacji dla liczby dodatniej i znaku *—” dla ujemnej. 
Kropka dziesiętna może być umieszczona w dowolnym miejscu 
wzorca określonego znakami +. 

Umieszczenie przecinka w dowolnym miejscu z lewej strony 
pomiędzy cyframi i kropką dziesiętną powoduje oddzielenie 
każdej trójki cyfr na lewo od przecinka. Przecinek stanowi 
dodatkową pozycję w polu numerycznym. 

Dwa znaki dolara umieszczone na początku wzorca powodują 
wyświetlenie znaku dolara przed pierwszą cyfrą wydruku. 
Dwie gwiazdki umieszczone przed wzorcem powodują w przy- 
padku niewykorzystania pozycji na lewo od kropki dziesiętnej 
zaznaczenie ich gwiazdkami. Dwie gwiazdki we wzorcu sta- 
nowią dodatkowe dwie pozycje w wydruku. 

Ta sekwencja, poprzedzająca wzorzec, powoduje w przypadku 
niewykorzystanych miejsc na lewo od kropki, zaznaczenie ich 
gwiazdkami i postawienie przed pierwszą cyfrą znaku dolara. 
Powoduje wyprowadzenie pierwszego znaku z łańcucha wystę- 
pującego na liście-elementów. 

Łącznie ze znakiem + określa format wydruku liczby. Ciąg 
czterech znaków [ oznacza wyprowadzenie litery E, znaku + 
lub — i dwóch cyfr wykładnika. 


9Jn-spacji /,— wyprowadzenie łańcucha znakowego o długości okre- 
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ślonej przez ilość spacji plus 2. 


Przykłady użycia instrukcji PRINT USING A$: 


Wzorzec A$ Wartość zmiennej 
1) + 4 . + ++ 1.222 
12.1 
+ + . 4 + 1.11 
— 2.22 
+: + . 4 + 11.11 
—I1I1 
+: + o. de — 11.11 
—11.11 
dr +, dd deo. dr 11223.4 
$$ + + + . + + 1.234 
** qe gro. + 1.234 
345.22 
**$ + + +. + 1.23 
! "ABCD" 
+ +. + +[[LL 100 
5 %6 "ABCDE" 
lo iu Vo "ABCDE" 
2) 52=1985 


10A$="4 + 4 +. + i + do. dk de 4 4F[[[[ 


15 PRINT USING A$:Z;Z:Z 
RUN 
1985.00 1.9850E + 03 


3) 5B=19985.5: A=1322.1 


— 


.0199E +05 


Postać wydruku 
1.22 
12.10 

+ 1.11 

— 2.22 
11.1 + 
11.1 — 
11.1 
11.1 — 
11.223.4 
$1.23 
*345.2 
kkkkPI.2 
A 
1.00E + 02 
AB 
ABCD 


I0A$="ZAPLACONO ZL 4 + 4 + . + ++ ZOSTALO 


++ de dk dk dk . + ZL” 
15 PRINT USING/A$;A;B- A 
RUN 


ZAPLACONO ZL 1322.10 ZOSTALO 18663.40 ZL 


PRINT + — 1, lista-elementów. 


RR + [EEC 


Instrukcja służy do zapisania zmiennych numerycznych i łańcuchowych 
na taśmie magnetofonowej. Informacje umieszczone na liście-elementów 
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za pojedynczą instrukcją PRINT + — I nie mogą zajmować razem więcej 
niż 255 bajtów. Wszystkie bajty powyżej 255 nie zostaną zapisane na 


taśmie. 
Przykład: 


10 A=5:B=17:A$="COBRA" 
20 PRINT + — L,A,B,A$ 


LPRINT 


Instrukcja służy do wyprowadzania danych na drukarkę. Sposób użycia 
jest taki, jak dla instrukcji PRINT. Dotyczy to również instrukcji 
LPRINT TAB(n) i LPRINT USING A$;A;B;... 


3.4.2. Instrukcje wprowadzania danych 


INPUT lista-elementów. 


Instrukcja służy do wprowadzania danych numerycznych lub łańcucho- 
wych zgodnych z listą-elementów umieszczoną za słowem INPUT. Po 
napotkaniu tej instrukcji program zostaje zatrzymany do momentu 
wprowadzenia z klawiatury wartości, które zostaną przyporządkowane 
kolejnym zmiennym. Przy wykonywaniu tej instrukcji zostanie wyświe- 
tlony w nowej linii znak zapytania i spacja: 

9 __ (kreska pozioma określa położenie kursora) 


Użytkownik powinien wtedy wprowadzić odpowiednią liczbę danych 
oddzielonych przecinkami i zakończyć znakiem CR. Jeżeli po każdej 
danej naciśniemy klawisz CR, to w nowej linii będą wyświetlone dwa 
znaki zapytania i spacja: 

EE 

Jeżeli będziemy wprowadzać dane oddzielając je przecinkami, to może 
się zdarzyć, że podamy ich więcej niż żąda instrukcja INPUT. W'tej 
sytuacji zostanie wyświetlony na ekranie komunikat: 

” EXTRA IGNORED 


i program będzie się wykonywał dalej. 
Jeżeli po każdej danej będziemy naciskać klawisz CR, to program po 
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wprowadzeniu ostatniej danej z listy przejdzie sam do wykonywania 
instrukcji z następnej linii programu Basic. 

Przy próbie wprowadzenia danej niezgodnej z typem podanym na liście 
za słowem INPUT, zostanie wyświetlony komunikat: 


> REDO 


Dotyczy to takiej sytuacji, w.której program żąda danej numerycznej 
a zostanie wprowadzona dana łańcuchowa lub wyrażenie. Po wyświe- 
tleniu komunikatu ”? REDO” należy podać żądane dane od poczatku 
według listy za słowem INPUT. 

W instrukcji INPUT można umieścić komunikat przed listą ujęty 
w cudzysłów i zakończony średnikiem: 


10 INPUT "PODAJ DANA X"; X 


Komunikat ujęty w cudzysłowie zostanie wyświetlony przed znakiem 
zapytania. 


INPUT + — 1, lista-elementów. 

Instrukcja służy do wczytania zmiennych zapisanych na kasetę magneto- 

fonową za pomocą instrukcji PRINT + — 1, lista-elementów. Po wczyta- 

niu zmiennych przyporządkowuje je zmiennym umieszczonym na liscie- 

-elementów. Dane umieszczone na liście-elementów muszą być zgodne ze 

strukturą danych umieszczonych na taśmie. Zgodność ta musi dotyczyć 

ich liczby, typu i kolejności wystąpienia zmiennych. W przypadku 

niezgodności są sygnalizowane następujące błędy: 

— jeśli wystąpi zły typ zmiennych, jest sygnalizowany błąd złego pliku 
danych (BAD FILE DATA) o kodzie FD; 

— przy małej liczbie danych na taśmie w stosunku do liczby elementów 
zostanie zasygnalizowany błąd braku danych (OUT OF DATA) 
o kodzie OD. 


DATA 

Podczas wprowadzania linii programu istnieje możliwość tworzenia 
zestawu danych, które będą następnie używane przez program. Do 
tworzenia zestawu danych służy instrukcja składająca się ze słowa 


DATA, po którym następują dane oddzielone przecinkami. Jako dane 
mogą występować stałe numeryczne lub łańcuchy. Jeżeli łańcuchy 
zawierają tabulatory lub spacje, należy je umieścić w cudzysłowie. 


Przykłady: 


10 DATA 1,7,17,33 
20 DATA COBRA, COBRESPU, ESPU 
30 DATA ” COBRA ”;,ESPU” 


[Do pobierania danych z zestawu DATA i umieszczania ich pod zmienne 
programu służy instrukcja 


READ lista-elementów 


Pobieranie danych zaczyna się od pierwszego elementu z zestawu DATA 
i zostaje on przyporządkowany pierwszej zmiennej. Jeżeli program 
zażąda więcej danych niż zawiera zestaw DATA, to zostanie wyświetlo- 
ny błąd (OUT OF DATA) o kodzie OD. 


Przykłady: 
1) 10 DIM A(5) 
20 FOR I=1 TOS : READATI) : NEXT I 
30 DATA 11,13,17,29,31 
Po wykonaniu tego programu kolejnym elementom macierzy A(I) 
zostaną przyporządkowane liczby z zestawu DATA, np. A(3)=17. 
2) 10 CLS 
20 DATA 0,0000,1,0001,2,0010,3,0011,4,0100,5,0101,6,0110,7,0111, 
8,1000,9,1001,A,1010,B,1011,C,1100,D,1101,E,1110 
FILII 
RESTORE 
INPUT” PODAJ ZNAK HEX” ;A$ 
32 FOR I=1I TO 16: READ C$,B$ 
16 IF C$=A$ THEN 40 ELSE NEXT 
38 PRINT” TO NIE JEST ZNAK HEX. ” : GOTO 25 
40 PRINT” ZNAK ";A$;” MA WARTOSC BINARNA ”;B$ : 
GOTO 25 i 


"SA S) 
© u 


3) 10 CLS 

20 DATA 0,0000,1,0001,2,0010,3,0011,4,0100,5,0101.6.0110.7 
0111,8,1000,9,1001,A,1010,B,1011,C,1100,D.1101,E, 
1110, F,I111 

30 INPUT "PODAJ DWA ZNAKI HEX. ";A$ 

40 Z1$=LEFT$(A$,1) : GOSUB 200 

50 PRINT A$;* = ";Z2$: 

60 ZI$=RIGHT$(A$,1) : GOSUB 200 

70 PRINT Z2$ : GOTO 30 

200 RESTORE : FOR I=1 TO 16 : READ B$.22$ 

220 IF ZI$=B$ THEN RETURN ELSE NEXT 

230 PRINT ” TO NIE JEST ZNAK HEX." : GOTO 30 


RESTORE 


Instrukcja umożliwia wielokrotne korzystanie z tych samych danych 
zawartych w DATA. 


3.4.3. Instrukcja komentarza 


REM 
Instrukcja ta służy do umieszczania komentarzy dotyczących dzialania 
programu. Składa się ona ze słowa REM oraz ciągu znaków: 


10 REM PROGRAM MINIMALIZACJI KOSZTOW 
20 REM PRODUKCJI TELEWIZORÓW 


Basic po identyfikacji instrukcji REM ignoruje wszystko to. co jest 
umieszczone za słowem REM do końca linii programu i przechodzi do 
realizacji następnej linii. Basic dopuszcza używanie znaku apostrofu ” 
zamiast słowa REM. 


10 PROGRAM MINI... 
20 PROD... 


3.4.4. Instrukcja podstawienia 


LET 

Instrukcja podstawienia pozwala zmienić wartości poszczególnych 
zmiennych występujących w programie. Umożliwia to przypisanie 
zmiennym wyników obliczeń z możliwością ich dalszego wykorzystania. 


Oprócz zmiennej numerycznej możemy przypisać zmiennej całe wyraże- 


nie arytmetyczne. 
ULET As=5 
LET B=1+1[2+33 


0 ŁET C=2sS1N(1/3) +SIN(1)/I 


wyrażenie po prawej stronie może zawierać zmienne, stałe, operatory 
arytmictyczne, funkcje matematyczne. W opisywanej wersji języka Basic 
używanie słowa LET nie jest konieczne i podstawienie można zapisać 


następująco: 


10 A=5 
20 B=1+1[2+33 
30 C=2sSIN(/3) + SIN(I/I 


3.4.5. Instrukcja zerowania zmiennych 

CLEAR X. 

Instrukcja powoduje wyzerowanie wszystkich zmiennych, które wystą- 
piły wcześniej w programie oraz powoduje przydzielenie tylu bajtów 
amięci do przechowywania łańcuchów, ile wynosi stała *X” podana 
AWR po słowie CLEAR, np. CLEAR 100. Basic po wpisaniu 
£ zainicjowaniu rezerwuje automatycznie 50 bajtów pamięci na zmienne 
lańcuchowe. Jeżeli ilość znaków wczytanych łańcuchów przekroczy 
liczbę zarezerwowanych bajtów, to zostanie wyświetlony komunikat 
(©UT OF STRING SPACE) o kodzie OS. 


3.4.6. Bezwarunkowe instrukcje zatrzymujące program 

STOP 

Instrukcja powoduje zatrzymanie programu w określonej przez progra- 
mistę linii Zatrzymany program wyświetla komunikat BREAK IN 
(numer linii). Po zatrzymaniu programu możemy sprawdzić np. zmienne 
używając instrukcji PRINT. Jeżeli nie wznawiamy programu instrukcją 
CONT, możemy przykładowo modyfikować program lub zmienne. 


30 


10 A$=INKEY$ :IFA$ <> "X" THEN 10 
20 STOP 
RUN 


Naciśnięcie dowolnego klawisza spowoduje wygenerowanie sygnału 
dźwiękowego. Po naciśnięciu litery "X" pojawi się komunikat BREAK 
IN 20. 


END 


Instrukcja ta bywa umieszczana w miejscu logicznego końca programu 
Przy sprawdzaniu i uruchamianiu programu, linie o numerach wyższych 
od linii, w której znajduje się instrukcja END, są przez Basic ignoro- 
wane. 


ERROR numer 


Instrukcja powoduje taką reakcję języka Basic, jak na rzeczywisty błąd. 
Reakcją tą jest przerwanie programu i wyświetlenie komunikatu. Zestaw 
błędów — patrz rozdział 8. 


Przykład: 
10 ERROR 6 
QV ERROR IN 10 


3.4.7. Instrukcje definiujące typy zmiennych 
DEFINT 
DEFSNG 
DEFDBL 
DEFSTR 


lista-liter-lub-zakresów-literowych 


Wszystkie zmienne, których nazwa rozpoczyna się od dowolnej litery 
z listy, są interpretowane jako: 


całkowite dla DEFINT (zakres — 32768 -- 32767); 

pojedynczej precyzji dla DEFSNG z dokładnością do 6 cyfr: 
podwójnej precyzji dla DEFDBL z dokładnością do 16 cyfr; 
łańcuchowe dla DEFSTR do 255 znaków przy uprzedniej właściwej 
deklaracji CLEAR X. 


Znaki deklaracji typu zmiennych (=, Y,, !) mają wyższy priorytet od 
deklaracji typu podanych za pomocą powyższych instrukcji. 
Wymienione instrukcje definiujące umożliwiają optymalizację progra- 
mu i zwiększenie szybkości. Po zdefiniowaniu np. macierzy składającej 
się z liczb całkowitych, pamięć mikrokomputera będzie w stanie zmieścić 
większą ilość jej elementów niż np. przy liczbach podwójnej precyzji 
(różnica 4-krotna). Różnica w czasie trwania pętli FOR — NEXT jest 
prawie 2-krotna, jeżeli zmienna pętli jest liczbą zdefiniowaną przez 
DEFINT w porównaniu do zmiennej pętli w pojedynczej precyzji. 


10 DEFINT A-D : DEFDBL L-O : DEFSTR X-Z 


Brak deklaracji pozostałych liter oznacza, że zmienne, których będą 
nazwami, są pojedynczej precyzji. Wszystkie zmienne, których nazwa 
zaczyna się od liter A- D będą występowały w programie jako całkowite, 
od liter L-O jako podwójnej precyzji, a od liter X-Z jako łańcuchy. 


3.4.8. Macierze 


DIM nazwa (ij k....) 


Instrukcja powoduje zadeklarowanie macierzy o zadanej liczbie elemen- 
tów w każdym wymiarze. Argumenty określające wymiar mogą byćstałą 
lub wyrażeniem. Jeżeli w programie zostanie użyta instrukcja, która 
będzie wymagała zastosowania tablicy a nie nastąpiła wcześniejsza 
deklaracja jej wymiarów, to Basic automatycznie przyjmie każdy 
wymiar równy 1I(0 -- 10). 

Instrukcja deklaracji wymiarów służy programowi do rezerwacji miejsca 
w pamięci na przechowywanie elementów indeksowanych. Próba dekla- 
racji nowej tablicy o innych wymiarach niż poprzednia lecz o tej samej 
nazwie jest traktowana jako błąd i oznaczona kodem DD. Instrukcja 
deklaracji DIM umożliwia nam deklarację tablic ze zmiennymi typu 
INT, DBL, SNG oraz łańcuchowymi: 


10 DIM AY,(3,4), B(3,5,5), € ++(7), D$(2,2,3) 


1) 
he) 


3.4.9. Instrukcje skoku 
GOTO numer-linii 


Instrukcja skoku bezwarunkowego GOTO pozwala zmienić kolejność 
wykonywania programu i przekazuje sterowanie do instrukcji umiesz- 
czonej w linii o wymienionym numerze linii. W przypadku skoku 
programu do nieistniejącej linii, Basic sygnalizuje błąd (UNDEFINED 
LINE) o kodzie UL oraz podaje numer linii, w której ten błąd wystąpił. 


ON wyrażenie-arylmetyczne GOTO n,, n,. .... n, 


Instrukcja ta jest rozsżerzeniem instrukcji GOTO i służy do przeka- 
zywania sterowania programu do różnych miejsc w zależności od 
wartości wyrażenia-arytmetycznego. Po napotkaniu tej instrukcji pro- 
gram oblicza wartość wyrażenia-arytmetycznego i określa jego część 
całkowitą. Jeżeli wartość INT (wyrażenie-arytmetyczne) jest mniejsze od 
zera, to jest sygnalizowany błąd (ILLEGAL FUNCTION CALL) 
o kodzie FC. Jeżeli część całkowita jest równa zero lub przewyższa liczbę 
pozycji listy, to sterowanie programu przechodzi do następnej linii. 
Przykład: 

10 ONA+1 GOTO 30,40,50,60 

20 PRINT A$ ; B$ 


Po obliczeniu wyrażenia arytmetycznego A +1 program przejdzie do 
realizacji linii: 

30 jeżeli część całkowita A +1 
40 jeżeli część całkowita A+1 = 2 

50 jeżeli część całkowita A+1 =3 

60 jeżeli część całkowita A+1 = 4 

Dla wartości INT(A + 1) = O oraz INT(A +1)>4 program przejdzie do 
wykonywania linii 20. 


— 


3.4.10. Instrukcje obsługi podprogramów 
GOSUB numer-linii 


Instrukcja ta powoduje przekazanie sterowania do linii programu 
podanej za słowem GOSUB. Numer tej linii jest numerem pierwszej 
instrukcji podprogramu. Instrukcji tej używamy w programie wtedy. gdy 
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- trzeba kilkakrotnie wykonać tę samą część programu. Po wykonaniu 
ciągu instrukcji należących do podprogramu, należy wykonać instrukcję 
powrotu. Podczas wykonywania instrukcji GOSUB zostaje zapamiętany 
numer linii następnej instrukcji. [Dozwolone jest wykonanie wielu 
instrukcji GOSUB zanim zostanie wykonana instrukcja RETURN. 


RETURN 

Instrukcja ta kończy realizację podprogramu, a jej wykonanie powoduje 
przejście do linii o numerze, który został zapamiętany przy ostatnim 
wykonaniu instrukcji GOSUB. Jeśli program napotka instrukcję RE- 
TURN bez uprzedniego wykonania GOSUB, to zostanie zasygnalizo- 
wany błąd o kodzie RG. Program może zawierać wiele instrukcji 
RETURN, lecz liczba wykonanych nie może być większa od liczby 
wykonanych wcześniej instrukcji GOSUB. 


Przykład: 

10:A=7.: B=3 .Czl1l 
20 GOSUB 200 

30 A=5:B=2:C=16 
40 GOSUB 200 

50 END 

200 FOR I=0 TOA 
210 C(I)=2[B+Cxl+1 
220 NEXTI: Z=0 
230 FOR.I=0 TOA 
240 Z=Z+C(1)' 

250 NEXT I: PRINT Z : RETURN 
RUN 

_380 

270 


OŃ wyrażenie-arytmetyczne GOSUB n,. n,. ..., n, 


Instrukcja przekazuje sterowanie do podprogramu rozpoczynającego 
się od numeru linii podanego za słowem GOSUB. Zasady obliczania 
numeru linii, do której nastąpi skok są takie same, jak w instrukcji 
'ON..GOTO. Po wykonaniu skoku i podprogramu obowiązuje instruk- 
cja RETURN. Zasady są takie same jak dla instrukcji GOSUB — 
RETURN. 
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ON ERROR GOTO numer-linii 

Instrukcja powoduje skok do określonej linii programu (podprogramu) 
po wystąpieniu błędu w programie głównym. Powyższej instrukcji należy 
użyć wcześniej przed miejscem wystąpienia błędu. Po wykonaniu tej 
instrukcji nie będzie sygnalizowany komunikat o błędzie i nie nastąpi 
przerwanie programu. Podprogram obsługi błędu powinien być zakoń- 
czony instrukcją RESUME. Działanie instrukcji ON ERROR GOTO... 
może być przerwane poprzez powtórne jej użycie z numerem linii 0. 


ON ERROR GOTO 0 
Przywraca to normalną reakcję języka Basic na napotykane błędy. 


RESUME numer-linii 

Instrukcja ta kończy podprogram obsługi błędu przez określenie miejsca, 
od którego ma być wznowione dalsze wykonywanie programu. Jeżeli po 
instrukcjj RESUME nie zostanie podany numer linii lub podamy 
RESUME 0, to program będzie kontynuowany od instrukcji, w której 
wystąpił błąd. Przy połączeniu RESUME NEXT program będzie 
kontynuowany od następnej instrukcji, po której wystąpił błąd. Jeżeli 
zostanie podany numer linii. np. RESUME 200, to program będzie dalej 
wykonywany od linii 200. 


Przykład: 

10 ON ERROR GOTO 200 

20 PRINT "PROGRAM LICZY NSILNIA” 

30 INPUT "PODAJ N* ;N | 

40 IF N=0 THEN N=1 ELSEIF N < 0 THEN 30 
50 B=0:A=1:FORI=1 TON 

60 A=As*l 

70 NEXT I 

80 IF B=0 THEN PRINTA : GOTO 30 

100 A$=RIGHT$(STR$(A),2) 

110 B=B+VAL(A$) 

120 PRINT LEFT$(STR$(A) LEN(STR$(A)) —.2) + STR$(B) 
130 GOTO 30 

200 A=A/IE30 : B=B+30 

210 RESUME: 


Jeżeli zmienna A obliczona w linii 60 przekroczy największą liczbę 
dopuszczalną w operacjach arytmetycznych (ok. 1.7E +38), to wystąpi 
błąd przepełnienia (OVERFLOW) i program będzie wykonywany od 
linii 200. 


3.4.11. Instrukcje pętli 
FOR zmienna = wyrażenie-I TO wyrażenie-2 STEP krok 


Instrukcja służy do cyklicznego wykonywania bloku programu określo- 
ną liczbę razy. Blok pętli składa się z linii zawierającej instrukcję 
otwarcia pętli: FOR...TO..STEP, ciągu linii, które będą wykonywane 
cyklicznie oraz linii zawierającej instrukcję zamknięcia pętli: NEXT. 
W yrażenic-I po słowie FOR podaje początkową wartość zmiennej 
sterującej, wyrażenie-2 podaje końcową wartość zmiennej sterującej, 
a parametr krok określa wartość o jaką jest zmieniana zmienna sterująca 
w każdym kolejnym cyklu. 
Przykłady: | 
1) 10 FORA= -5STO S$ STEP 5 

15 PRINTA, 

20 NEXT A 
Jeżeli zapis instrukcji FOR... będzie następujący: 

10 FOR A= -5STO 5 

15 PRINTA 

20 NEXTA 
i nie zostanie podany parametr krok, to Basic automatycznie przyjmie 
STEP |. 
2) 10 FOR X=1TO9 

20 FOR Y=0TO9 

30 FOR Z=0TO9 

40 IF X=100+Y+=10+Z=X=X+X+Y*+*YxY +Z*Z+*Z THEN 100 

50 NEXT Z 

60 NEXT Y 

70 NEXT X 

80 END 

100 PRINT X;Y;Z 

110 GOTO 50 
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Program znajduje takie cyfry, których suma trzecich potęg równa jest 
liczbie złożonej z tych cyfr. 


RUN 

15 3 
3.7 0 
3 4 1 
4.0 7 


3.4.12. Instrukcje warunkowe 


IF wyrażenie-logiczne THEN program-l ELSE program-2 


Instrukcja warunkowa IF służy do sterowania wykonywanym progra- 
mem w zależności od wartości wyrażenia logicznego (patrz — "Opera- 
tory logiczne”). Jeśli wartością wyrażenia jest prawda, to program jest 
wykonywany dalej od pierwszej instrukcji po słowie THEN (program-1). 
Natomiast dla wartości fałsz sterowanie jest przekazywane do pierwszej 
instrukcji po słowie ELSE (program-2). Jako program-l lub program-2 
może być zadeklarowana instrukcja, kilka instrukcji lub numer linii, od 
której należy kontynuować program. Bardzo często korzysta się 
z instrukcji warunkowej z pominięciem części "ELSE program-2'. l tak: 
jeśli wynikiem jest prawda, to program tak jak poprzednio jest wykony- 
wany od instrukcji po słowie THEN (program-1l), a w przypadku fałsz 
jest wykonywana instrukcja z następnej linii programu. 


Przykłady: 


1) 10 INPUT A,B 
20 IFA<B THENA=A/2 ELSE A=B/3 
30 END 


2) 10 INPUT A,B 
20 IF A<B THEN 40 ELSE 60 
40 A=A/2 
50 END 
60 B=B/3 
70 END 


3) 10 IFINKEY$="" THEN 10 
20 PRINT "ZOSTAL NACISNIETY KLAWISZ” ; INKEY$ 
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3.4.13. Instrukcje obsługi błędów 
ERL 
Instrukcja ta powoduje przypisanie: zmiennej ERL numeru linii pro- 
gramu, w której wystąpił błąd. Jeżeli błąd wystąpił w trybie bezpo- 
średnim, to ERL=65535. Instrukcja jest używana do obsługi błędów 
wewnątrz programu. 
Przykład: 
10 FOR I= —-2TO 2 
20 PRINT 1/I 
30 NEXT I 
RUN 
— 5 
-| 
?/0 ERROR IN 20 
PRINT ERL 
20 
PRINT 1/0 
?/0 ERROR 
PRINT ERL 
65535 
ERR/2 +1 
Instrukcja ta powoduje przypisanie zmiennej ERR/2+ 1 numeru błędu 
(patrz rozdz. 8 -- tablica błędów). Zmienna ta nie może być użyta 
wewnątrz programu obsługi błędu. 
Przykład: 
PRINT 1/0 
?/0 ERROR 
PRINT ERR/2+1 
11 (błąd dzielenia przez zero) 


3.4.14. Instrukcje sterujące wizją 
CLS 
Instrukcja służy do kasowania ekranu. Zrealizowana jest za pomocą 


dwóch operacji: 
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— ustaw kursor na pozycję '0” (HOME), (kod 28); 
- skasuj od kursora do końca ekranu (kod 31). 
Odpowiada temu wykonanie poniższej instrukcji: 


PRINT CHR$(28); CHR$(31); 


POS(X) 


Instrukcja powoduje przypisanie zmiennej POS(X) liczby z zakresu 0 
= 31 i wskazuje bieżącą pozycję kursora w zapisywanej linii ekranu: 
Jako argument X można przyjąć dowolną wartość, o ile nie przekroczy 
ona największej liczby zmiennoprzecinkowej, tj. około 1.701E + 38. 


Przykłady: 


1) 10 PRINT TAB(RND(28)); POS(0) 
20 GOTO 10 


2) IO INPUTA :IFA <0ORA> 28 THEN 10 
20 PRINT TAB(A); POS(0) 
30 GOTO 10 


SET(X.:1; 


Instrukcja powoduje zapalenie punktu semigraficznego w miejscu okreś- 
lonym przez współrzędne X i Y. Współrzędna X może zawierać się 
w przedziale 0 + 63, a Y w przedziale O -- 71. Parametrami X i Y w funkcji 
SET(X,Y) mogą być dowolne wyrażenia arytmetyczne. W przypadku, 
gdy wartość jednego z parametrów przekroczy maksymalną dopuszcza|- 
ną wartość, zostanie zasygnalizowany błąd (ILLEGAL FUNCTION 
CALL) o kodzie FC. Rozdzielczość semigraficzna ogranicza ilość pól na 
ekranie, gdyż każde pole podzielone jest na sześć części. Każdej 
kombinacji punktów w ramach jednego pola odpowiada inny znak 
w nowym generatorze znaków. 


RESET(X,Y) 


Instrukcja powoduje zgaszenie punktu semigraficznego. Wymagania 
takie, jak w instrukcji SET(X,Y). 
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Przykład: 

$ CLS 

10 A=3.1415/70 

20 FOR I=1 TO 140 

30 X=32+4 20+COS(A=(1 + 30)) Y =38 + 20+SIN(A+(I + 30)) 
SET(X.Y) 

40 X=32+20+COS(A+I) : Y=38 +20»SIN(A*I) : RESET(X,Y) 

50 NEXT I 

60 GOTO 20 

Program pokazuje działanie instrukcji SET(X,Y) i RESET(X,Y). 


POINT(X,Y) 


Instrukcja służy clo testowania punktu o podanych współrzędnych. Jeżeli 
dany punkt jest zapalony, wtedy POINT dla PRINT przyjmuje wartość: 
—|1, a dla funkcji logicznej:1. Jeżeli punkt jest zgaszony. to wartość 
POINT równa się 0. 


Przykład: 


5 CLS 

10 FOR I=1 TO 30 
20 SET(1,I) 
30 NEXT I 
40 PRINT POLNT(20,20) 
50 IF POINT(20,20) THEN PRINT "PUNKT ZAPALONY” 
RUN 

—| 
PUNKT ZAPALONY 


3.4.15. Instrukcje operacji na zawartości pamięci 
PEEK(adres) 


Instrukcja powoduje odczytanie zawartości komórki pamięci o adresie 
adres i funkcja PEEK (adres) przyjmuje jej wartość w postaci dziesiętnej. 


A = PEEK(30000) 


Instrukcja powoduje odczytanie zawartości pamięci spod adresu 30000i 
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przyporządkowanie jej zmiennej A. Jeżeli adres należy do przedziału (0. 
32767), to zapis jest taki jak pokazano wyżej. Jeżeli adres należy do 
przedziału (32768, 65535), to zapis wygląda następująco: 


A = PEEK (adres 65536) 


POKE adres, wyrażenie 


Instrukcja powoduje zapisanie bajtu o wartości określonej przez wyraże- 
nie do komórki pamięci o adresie adres. Wartość wyrażenia zawiera się w 
przedziale (0, 255). Zasady zapisu parametru adres takie, jak dla 
instrukcji PEEK (adres). 


3.4.16. Instrukcja wywołania procedury w języku maszynows:an 


USR(X) 

Instrukcja umożliwia wywołanie procedury napisanej w języku maszy- 
nowym mikroprocesora Z-80 z programu realizowanego w języku Basic. 
Przed wywołaniem USR(X) należy najpierw umieścić w dwóch komór- 
kach pamięci adres pierwszej instrukcji procedury napisanej w języku 
maszynowym. Należy go umieścić w komórkach o adresach 16526 
(młodszy bajt) i 16527 (starszy bajt) za pomocą instrukcji POKE adres, 


wyrażenie. 
Przykład: 


Zakładamy. że napisana przez nas w języku maszynowym procedura jest 
"umieszczona od adresu 3D00 (tj. 15616) 


10 POKE 16526, 0: * (00) 
20 POKE 16527, 61 : * (3D) 
30 PRINT USR (0) :” lub A=USR (0) 


Procedura napisana w języku maszynowym musi być zakończona 
instrukcją RET, jeżeli zprocedury maszynowej nie będzie przekazywany 
parametr do języka Basic. Program w języku maszynowym należy 
umieścić za pomocą systemu MONITOR COBRA i uruchomić Basic. 
Jeżeli program został najpierw napisany w języku Basic, a potem chcemy 
wpisać do pamięci program maszynowy, to należy: 
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- wykonać reset mikroprocesora; 

— po zgłoszeniu systemu MONITOR wpisać program maszynowy do 
pamięci mikrokomputera za pomocą procedury M; 
obliczyć adres (młodszy i starszy bajt) za pomocą procedury C; 
wykonać start języka Basic (adres 66H) za pomocą procedury G. 


Po zgłoszeniu się języka Basic uzupełnić używając instrukcji POKE 
zawartość komórek pamięci o adresie 16526 i 16527 przeliczoną 
wartością młodszego i starszego bajtu adresu programu i uruchomić za 
pomocą instrukcji RUN. Każda pomyłka w programie napisanym 
w języku maszynowym może zmienić zawartość całej pamięci RAM 
razem z językiem Basic. Wszystkie programy w języku maszynowym 
używane przez Basic można umieszczać w obszarze pamięci od adresu 
3100H(12544) do adresu 3FFFH(16383), ponieważ ten obszar pamięci 
w mikrokomputerze COBRA nie jest używany przez Basic-COBRA. 

W przypadku, gdy program będzie dłuższy od 3800 bajtów, należy go 
umieścić przed końcem pamięci operacyjnej. Wymaga to jednocześnie 
ograniczenia obszaru pamięci przydzielanej językowi Basic i po pytaniu 
MEMORY SIZE? — podać wartość pomniejszoną o obszar zare- 
zerwowany dla programu maszynowego. 

Jeżeli chcemy przekazać daną z programu: Basic do programu maszy- 
nowego, to umieszczamy ją jako ”X”. Po wejściu w procedurę maszy- 
nową parametr ten odzyskujemy za pomocą instrukcji CALL 0A7FH 
(CD7FOA). Jeżeli chcemy przekazać parametr z procedury maszynowej 
do programu Basic, to umieszczamy go w parze rejestrów HL mikro- 
procesora i wykonujemy instrukcję JP OA9A (C3 9A OA). Instrukcja ta 
powoduje umieszczenie parametru z pary HL w komórkach pamięci 
o adresach 4121H i 4122. Należy pamiętać, aby ilość użytych instrukcji 
PUSH i POP była taka sama w momencie powrotu do języka Basic: 


5.4.17. Instrukcje obsługi urządzeń zewnętrznych 

INP (port) 

Instrukcja ta jest przeznaczona do czytania danej (bajtu) z urządzenia lub 
układu zewnętrznego (portu). Urządzeniem zewnętrznym może być 
dowolny ukiad elektroniczny, który umożliwi przekazanie danej na 
szynę danych mikroprocesora. Jako układ zewnętrzny może być zasto- 
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sowany PIO, CTC, SIO, itd. Argument port może przyjmować wartość 
z zakresu 0 = 255. 


A = INP(148) 


OUT port, wyrażenie 

Instrukcja powoduje wysłanie bajtu danych o wartości wyrażenie do 
urządzenia (układu) zewnętrznego o adresie port. Argument wyrażenie 
oraz port może zawierać się w zakresie 0 = 255. 


OUT25,0 


3.4.18. Instrukcje dodatkowe 
'MEM 


Instrukcja określa liczbę wolnych bajtów w pamięci dostępnej dla 
programu Basic. 


Przykład: 

Po zainicjowaniu języka Basic pojawi się komunikat 
MEMORY SIZE? 30000 CR(wartość zadeklarowana) 
PRINT MEM 

12548 


VARPTR (nazwa-zmiennej) 


Instrukcja powoduje wyznaczenie wartości adresów komórek pamięci 
zajmowanych przez zmienne występujące w programie. Wyznaczona 
wartość adresu jest przypisana zmiennej VARPTR. W komórce pamięci 
o adresie wyznaczonym za pomocą tej instrukcji jest umieszczony 
najmłodszy bajt zmiennej numerycznej lub długość łańcucha dla zmien- 
nej łańcuchowej. 


AB=2 

PRINT VARPTR(AB) 

17134 

Zmienna AB nie posiada znaku deklaracji, a więc jest zmienną pojedyn- 
czej precyzji — SNG(4 bajty). 
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Przykład: 
Wykonamy krótki program w trybie bezpośrednim: 
FOR 1=17132 TO 17137 : PRINT PEEK (I) : NEXT CR 


Na ekranie otrzymamy sześć wyświetlonych liczb: 
65 (17132) — pierwsza litera nazwy zmiennej 

66 (17133) — druga litera nazwy zmiennej 

0 (17134) — najmłodszy bajt zmiennej AB 

0 (17135) —starszy bajt zmiennej AB 

0 (17136) — najstarszy bajt zmiennej AB 

130 (17137) — wartość wykładnika z nadmiarem 128 


Rozmieszczenie bajtów danych dla różnego typu zmiennych: 


dla liczb całkowitych (INT) 
(VARPTR) -- mniej znaczący bajt (zapis w uzupełnieniu do 2) 
(VARPTR +1) — bardziej znaczący bajt (jak wyżej) 
dla liczb pojedynczej precyzji (SNG) 
(VARPTR) -— _ najmniej znaczący bajt mantysy 
(VARPTR +1) — starszy bajt mantysy 
(VARPTR +2) — najstarszy bajt mantysy 
(VARPTR +3) — wykładnik potęgi z nadmiarem 128 
dla liczb podwójnej precyzji (DBL) 
(VARPTR) —- najmniej znaczący bajt mantysy 
(VARPTR +1) — starszy bajt mantysy 
(VARPTR +2) — starszy bajt mantysy 
(VARPTR +3) — starszy bajt mantysy 
(VARPTR +4) — starszy bajt mantysy 
(VARPTR +5) — starszy bajt mantysy 
(VARPTR +6) — najstarszy bajt mantysy 
(VARPTR + 7) — wykładnik potęgi z nadmiarem 128 
dla zmiennej łańcuchowej (STR) 
(VĄRPTR) — długość łańcucha 
(VARPTR +1) młodszy bajt adresu początku łańcucha 
(VARPTR + 2) starszy bajt adresu początku łańcucha 


Dla liczb pojedynczej i podwójnej precyzji najstarszy bit w najstarszym 
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bajcie mantysy jest bitem znaku liczby. Dla zmiennej AB= —2 wydruk 
w poprzednim przykładzie byłby następujący: 


65 


128 
130 


3.4.19. Instrukcje operacji na łańcuchach 

Łańcuch jest stałą lub zmienną alfanumeryczną i podczas deklaracji jest 
ujęty w cudzysłów, np. "COBRA". Długość łańcucha jest to liczba 
wszystkich znaków ujętych w cudzysłowie łącznie ze znakiem spacji. 
Maksymalna długość łańcucha wynosi 255. Jako zmienna łańcuchowa 
może być zadeklarowana każda nazwa przez instrukcję DEFSTR lub 
przez znak deklaracji ($), np.: A$, AB$. 

Wprowadzanie zmiennych łańcuchowych może odbyć się przy użyciu 
instrukcjj DATA, READ oraz INPUT i INPUT+ —1. Zmienne 
łańcuchowe wprowadzamy za pomocą instrukcji PRINT, LPRINT 
iPRINT+ —1. Przed wprowadzeniem zmiennych łańcuchowych należy 
zarezerwować odpowiednio duży obszar pamięci operacyjnej używając 
instrukcji CLEAR n. Zmienne łańcuchowe (alfanumeryczne) mogą być 
proste i indeksowane, przy czym zmienne wprowadzane za pomocą 
instrukcji INPUT lub READ muszą być stałymi alfanumerycznymi. 
Jeżeli we wprowadzanej stałej będzie użyty znak zastrzeżony, np. 
tabulator, to należy ją ująć w cudzysłów. 


LEFT$ (łańcuch-X, n) 


Instrukcja tworzy nowy łańcuch biorąc n pierwszych znaków z łańcucha 
łańcuch-X. 
Przykłady: 
1) 10 A$= "INSTRUKCJA" 
20 B$= LEFT$(A$, 3) 
30 PRINT B$ 
RUN 
INS 


LR) 


10 DATA CPM, OLA, BAR, RET, ALFA 

20 FOR I=1 TO 5: READ A$(I) : NEXT 

30 B$="" 

40 FOR I=1 TO 5: B$=B$+.LEFT$(A$(I).1) : NEXT 
$0 PRINT B$ 

RUN 

COBRA 


RIGHT$ (/ańcuch-X, n) 
Instrukcja tworzy nowy łańcuch składający się z n ostatnich znaków 
łańcucha łańcuch-X. 
Przykład: 
10 A$="SPECTRUM" 
20 B$= RIGHT$(A$,3) 
30 PRINT B$ 
RUN 
RUM 


MID$ (/ańcuch-X, n, m) 


Instrukcja tworzy nowy łańcuch z lańcucha-X biorąc m kolejnych 
znaków zaczynając od pozycji n. 
Przykład: 


10 A$="COBRA ” : B$= "KONGRES ” : C$= "SPUTNIK * 
20 B$ =LEFT$(A$,3)+ MID$(B$,5,2) + LEFT$(C$,3) 
30 PRINT B$ 
RUN 
COBRESPU 


STRING$ (k, argument) 
Instrukcja generuje łańcuch składający się z k takich samych elementów, 
jakim jest argument. 


PRINT STRING$ (10, 65) 
AAAAAAAAAA 
PRINT STRING$ (10, "A”) 
AAAAAAAAAA 
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Parametr k oraz wartość dziesiętna odpowiadająca argumentowi może 
zawierać się w przedziale (0 -- 255. 


ASC (łańcuch) 


Instrukcja powoduje wyznaczenie wartości dziesiętnej kodu ASCII 
pierwszego elementu (z lewej strony) łańcucha będącego operandem. 


A$= "ABECADLO” 

PRINT ASC(A$) 

65 

CHR$ (wyrażenie-numeryczne) 


Instrukcja tworzy łańcuch jednoelementowy. Wartość wyrażenia nume- 
rycznego jest traktowana jako dziesiętna postać kodu ASCII wyzna- 
czonego w ten sposób znaku alfanumerycznego. Jest to instrukcja 
o działaniu odwrotnym do ASC. Wartość wyrażenia-numerycznego 
zawiera się w zakresie 0-- 255. Dzięki tej instrukcji można generować 
nie tylko cyfry i litery, ale też znaki sterujące (np. LF, CR, itd.) 
i semigraficzne. 


PRINT CHR$(65) 
A 


STR$ (wyrażenie-numeryczne) 


Instrukcja tworzy zmienną łańcuchową z wyrażenia numerycznego. 
Utworzony w ten sposób łańcuch zawiera jedną spację przed pierw- 
szym znakiem łańcucha, jeżeli wyrażenie było liczbą dodatnią. Pod- 
czas wyświetlania funkcja PRINT dołącza jedną spację na końcu. 
W przypadku tworzenia łańcucha z liczby ujemnej, znak minus wyświe- 
tlany jest zamiast pierwszej spacji. Na łańcuchach utworzonych za 
pomocą instrukcji STR$ (...) można realizować tylko operacje łańcu- 
chowe. 

Przykład: 
10 A=1985 

20 B$=" ANNO DOMINI” 

30 PRINT B$ +STR$(A) 

RUN 

ANNO DOMINI 1985 
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VAL (łańcuch) 


instrukcja realizuje funkcję odwrotną do STR$ (...) i wyznacza wartość 
oznaczoną znakami numerycznymi łańcucha. Jeżeli łańcuch jest zbudo- 
wany ze znaków numerycznych, to w utworzonej liczbie są one wszystkie 
uwzględnione. Jeżeli łańcuch zawiera znaki numeryczne rozdzielone 
znakami liter, to utworzona liczba zawiera tylko pierwsze cyfry. 
W przypadku, gdy pierwszym znakiem łańcucha jest litera, a cyfry 
znajdują się na dalszych pozycjach, wartość VAL (łańcuch) =0. 


Przykłady: 


1) A$="1237 
PRINT VAL(A$) 
123 


2) A$= "123 ZLOTE I 20 GROSZY ” 
PRINT VAL(A$) 
123 


3) A$= "WINNY 123 ZLOTE I 20 GROSZY ” 
PRINT VAL(A$) 
0 


INKEY$ 


Instrukcja tworzy jednoznakowy łańcuch odpowiadający naciśniętemu 
znakowi. Jeżeli nie został haciśnięty klawisz (znak), to wynikiem 
działania funkcji jest łańcuch pusty. Instrukcja nadaje się szczególnie do 
realizacji programów gier. 


Przykład: 


10 CLS 

20 A$=INKEY$ : IF A$="" THEN 20 
30 PRINT TAB(ASC(A$) — 64) ; A$ 

40 GOTO 20 

RUN 


Przykładowy program powoduje generację kolumny utworzonej z litery 
naciśniętego klawisza. Dla litery A kolumna jest utworzona na pozycji 1, 
dla B na drugiej itd. 
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LEN (łańcuch) 


Instrukcja służy do wyznaczania długości łańcucha i wartość ta zostaje 
przypisana zmiennej o tej samej nazwie. 


Przykłady: 

I) A$="TO"” : B$="JEST ”: C$=" FUNKCJA ” 
PRINT LEN(A$), LEN(B$), LEN(C$) 
4 6 
9 


2) 10 INPUT A$ 
20 FOR I=LEN(A$) TO 1 STEP —1 
30 PRINT MID$(A$.1,1) ; 
40 NEXT I 
50 PRINT : GOTO 10 


Wartość LEN(A$) określa liczbę liter łańcucha, które należy wyświetlić 
w odwrotnej kolejności niż zostały podane. 


FRE (/ańcuch) 


Funkcja powoduje wyznaczenie ilości wolnych bajtów pamięci przezna- 
czonej na przechowywanie łańcuchów. Po zainicjowaniu programu 
Basic automatycznie jest rezerwowane 50 bajtów. 


Przykład: 


PRINT FRE(A$) 

50 

A$=" COBRA ” : PRINT FRE(A$) 
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4 Basic 


4 
Tryby pracy 


Mikrokomputer z językiem Basic może pracować w jednym z czterech 
trybów pracy: 

— bezpośrednim 

— edycji 

-— pracy w programie 

— systemowym 


4.1. Tryb bezpośredni — opis zleceń 
AUTO numer-pierwszej-linii, krok. 


Zlecenie powoduje włączenie automatycznej numeracji kolejnych linii 
programu napisanego w języku Basic. Po słowie AUTO należy podać 
numer pierwszej linii, od której będzie zaczynał się program oraz 
parametr krok. Numery następnych linii będą różniły się o krotność tego 
parametru, tj. krok, 2xkrok, 3«krok itd. Jeżeli pominie się parametr krok, 
to Basic przyjmie jego wartość równą 10. 


Przykład: 

AUTO 5.5 (CR) — pierwszej linii programu zostanie przyporządko- 
wany numer 5, a następnym 10, 15, 20, ... itd., 

AUTO 5 (CR) -- pierwsza linia ma numer 5, a następne 15, 25, 35, ... 
itd. 
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Zakończenie wprowadzania programu z automatyczną numeracją linii 
odbywa się przez użycie klawisza BREAK (CTR A). 


CLEAR k 


Zlecenie powoduje wyzerowanie wszystkich zmiennych numerycznych 
i łańcuchowych (zmienne łańcuchowe przyjmą wartość łańcuchów pu- 
stych) oraz zarezerwuje k bajtów pamięci operacyjnej na zmienne 
łańcuchowe. 


CLOAD "nazwa" 


Zlecenie powoduje wczytanie z taśmy magnetofonowej programu napi- 
sanego w języku Basic i uprzednio zapisanego na taśmie za pomocą 
rozkazu CSAVE "nazwa. Podczas przeszukiwania kasety programy 
o nazwach innych niż podana po słowie CLOA D'są ignorowane. Nazwa 
programu jest sprawdzana z dokładnością do pierwszej litery. Jeżeli nie 
podamy nazwy programu, to do mikrokomputera zostanie wczytany 
pierwszy napotkany program. 

Każdy program zapisany na taśmie jest poprzedzony sekwencją znaków 
tworzących rozbiegówkę oraz bajtem startowym. W momencie wy- 
krycia tej sekwencji, w prawym górnym rogu ekranu pojawią się dwie 
gwiazdki **. Druga gwiazdka miganiem sygnalizuje wczytywanie pro- 
gramu z taśmy. W przypadku napotkania programu o innej nazwie niż 
zadeklarowana, jego nazwa zostanie wyświetlona w miejscu pierwszej 
gwiazdki. Każdy wczytany nowy program niszczy poprzedni znajdujący 
się w pamięci. Jeżeli podamy rozkaz CLOAD i w pamięci znajduje się 
poprzedni program, a jednocześnie Basic nie wykrył jeszcze sekwencji 
startowej, to możemy zrezygnować z wczytania nowego programu 
kasując mikrokomputer przyciskiem RESET. Po uruchomieniu języka 
Basic instrukcją G : 66 (CR) (wejście gorące), możemy używać dalej 
poprzedniego programu w języku Basic, ponieważ nie został on skaso- 
wany. 


CLOAD? "nazwa" 


Zlecenie służy do weryfikacji programu zapisanego na taśmie magne- 
tofonowej z programem zawartym w pamięci operacyjnej. W przypadku 
napotkania różnicy między programami, wyświetlony zostanie komu- 
nikat "BAD". Podczas weryfikacji programu, bez względu na jej wynik 
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końcowy, program w pamięci operacyjnej nie będzie zniszczony lub 
zmodyfikowany. 


CONT 


Zlecenie powoduje wznowienie programu wstrzymanego przy pomocy 
BREAK lub instrukcji STOP. Po zatrzymaniu programu istnieje 
możliwość zmiany wartości zmiennych pod warunkiem, że nie będzie 
dokonana zmiana treści programu. 


CSAVE *"nazwa" 

Zlecenie powoduje zapisanie na taśmie magnetofonowej programu 
znajdującego się w pamięci operacyjnej i napisanego w języku Basic. 
DELETE numer-l - numer-2 


Zlecenie powoduje usunięcie z programu napisanego w języku, Basic 

wszystkich linii programu od linii numer-l do linii numer-2. 

DELETE 60-90 usunięcie linii od nr 60 do 90, włącznie z linią 601 90; 

DELETE -40 usunięcie wszystkich linii od początku do linii 40 
włącznie; 

DELETE 100 usunięcie linii 100. 


EDIT numer-linii 
Wprowadza Basic w tryb edycji (patrz opis zleceń EDIT). 
LIST numer-1 - numer-2 


Zlecenie powoduje wyświetlenie na ekranie linii o numerach zadeklaro- 
wanych za słowem LIST. 


LIST 10-70 wyświetlenie linii od nr 10 do 70; 

LIST -70 wyświetlenie wszystkich linii od początku do 70; 

LIST 70- wyświetlenie wszystkich linii od linii 70 do końca pro- 
gramu; 

LIST 100 wyświetlenie linii 100. 


LLIST numer-l - numer-2 


Zlecenie służy do wyprowadzania treści programu na urządzenie 
zewnętrzne np. drukarkę lub perforator. Działa tak jak LIST. Program 


52 


wyprowadzany na drukarkę za pomocą zlecenia LLIST nie jest wyświe- 
tlany na ekranie. 


NEW 


Zlecenie powoduje wyzerowanie wszystkich zmiennych i usuwa pro- 
gram z pamięci operacyjnej. Nie powoduje zmiany deklaracji obszaru 
zarezerwowanego dla zmiennych łańcuchowych w ostatniej deklaracji 
CLEAR k. 


RUN numer-linii 


Rozpoczyna wykonanie programu od zadanego numeru linii. Jeżeli po 
słowie RUN nie będzie podanego numeru linii, wykonanie programu 
rozpocznie się od najniższego numeru linii. Instrukcja RUN zeruje 
wszystkie zmienne. Nie powoduje zmiany ostatniej deklaracji CLEAR k. 


SYSTEM 


Wprowadza Basic w tryb systemowy. Tryb ten umożliwia wpisywanie 
programów lub zbiorów danych i wykonanie programów w języku 
maszynowym. Po wywołaniu SYSTEM CR, na ekranie zostanie wy- 
Świetlona gwiazdka i znak zapytania *?. Po podaniu nazwy programu 
jest rozpoznawana pierwsza litera bez cudzysłowu i wczytany zostaje 
program z taśmy. Po wczytaniu programu pojawia się znowu znak *? 
w nowej linii. Podanie znaku dzielenia *”/” i adresu dziesiętnego 
zakończonego znakiem CR spowoduje wykonanie programu. Jeżeli po 
znaku dzielenia ”/” nie zostanie podany adres, to program będzie 
wykonywany od adresu zawartego w części organizacyjnej programu 
zapisanego na taśmie. 


TROFF 

Zlecenie powoduje wyłączenie funkcji śledzenia przebiegu wykonywa- 
nego programu. 

TRON 


Zlecenie powoduje włączenie funkcji śledzenia przebiegu realizowanego 
programu. Śledzenie to polega na ciągłym wyświetlaniu numerów linii 
wykonywanych po sobie w programie. 
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4.2. Tryb edycji 


Proces poprawiania programu za pomocą funkcji EDIT może odbywać 
się tylko w obrębie jednej linii programu. Do trybu EDIT można przejść 
przez napisanie słowa EDIT i dalej za nim numeru linii. W przypadku 
działającego programu, w sytuacji napotkania błędu w danej linii, Basic 
sam przechodzi do trybu EDIT. Po wywołaniu trybu EDIT, Basic 
wyświetla numer linii z błędem i czeka na znaki sterujące, które 
w zależności od rodzaju poprawki, poda operator. 


Przykład wywołania trybu EDIT: 
EDIT 200 (CR) 
200 — 


W takiej sytuacji treść linii przeznaczonej do poprawek została prze- 
pisana do tymczasowego bufora linii utworzonego w pamięci. Po 
podaniu, po słowie EDIT, numeru linii nieistniejącej w programie, 
zostanie wyświetlony błąd *UL. (?UL ERROR). 


4.2.1. Opis funkcji trybu EDIT 


Funkcja A 

powoduje skasowanie poprawek wykonanych w danej linii programu. 
Do bufora linii zostaje ponownie przepisana wywołana linia i wyświe- 
tlony jej numer. Program Basic jest nadal w trybie edycji danej linii, ale 
nie przechodzi do trybu bezpośredniego. 


Funkcja Q 

powoduje usunięcie wszystkich poprawek dokonanych w danej linii przy 
użyciu funkcji EDIT i kończy edycję wychodząc do trybu bezpo- 
średniego. Zawartość poprawianej linii po wyjściu jest bez zmian. 
Funkcja E 


powoduje zakończenie edycji linii i wyjście do trybu bezpośredniego. 
Wszystkie zmiany zostały zaakceptowane i zawartość bufora linii zostaje 
umieszczona w programie w miejsce pierwotnej treści. 
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Funkcja CR 


powoduje wyjście z trybu edycji w każdej sytuacji. Wychodząc z trybu 
EDIT, Basic powoduje wprowadzenie wszystkich poprawek w danej 
linii, wyświetlenie całej linii programu bez względu na położenie kursora 
i przejście do trybu bezpośredniego. 


Funkcja L 


powoduje wyświetlenie całej linii programu bez względu na pozycję 
kursora. Po wyświetleniu treści poprawianej linii, kursor przechodzi do 
nowej linii na ekranie i zostaje wyświetlony ponownie numer linii. Przy 
wykonywaniu funkcji L program Basic nie może być w zleceniu edycji. 


4.2.2. Zlecenia edycji 


Do znaków sterujących edycją należą: SP, =, CR, CTR[ (szczegółowy 
opis znaków — patrz rozdział "Opis klawiszy funkcyjnych”). 


I — wstaw (insert) 


Zlecenie powoduje wstawienie tekstu od aktualnej pozycji kursora. 
Wyjście z trybu I odbywa się za pomocą CTR[. Po wyjściu CTR [, Basic 
, oczekuje na znak nowego zlecenia edycji. Jeżeli wstawiony nowy tekst 
jest jedyną poprawką w tej linii, to można od razu wyjść z edycji 
naciskając CR. Wstawiony nowy tekst powoduje rozsunięcie znaków 
w edytowanej linii. 


X — wyświetl linię + I (insert) 


Zlecenie powoduje wyświetlenie wszystkich znaków w edytowanej linii 
i ustawienie kursora na pierwszej wolnej pozycji oraz automatyczne 
przejście do zlecenia I (insert). Zlecenie to umożliwia dopisanie dalszych 
instrukcji w istniejącej już linii programu. Kończąc poprawianie linii 
możemy wyjść naciskając CR. Jeżeli po dopisaniu nowej instrukcji chce- 
my wyjść ze zlecenia X i nadal pozostać w EDIT, to naciskamy CTR [. 


H — kasuj na prawo + I (insert) 


Zlecenie powoduje usunięcie wszystkich znaków z bufora linii od 
aktualnej pozycji kursora do końca linii oraz automatycznie przechodzi 
do trybu I (insert). Wyjście za pomocą CTR [ lub CR. 


kD — usuń k znaków 


Zlecenie powoduje usunięcie k znaków od następnej pozycji kursora. 
Usunięte znaki zostają wyświetlone pomiędzy ukośnymi kreskami 
(znakiem dzielenia). 


kC — zastąp k znaków 


Zlecenie powoduje usunięcie k znaków od aktualnej pozycji kursora 
i przechodzi w mod I (insert). Po wprowadzeniu nowych k znaków 
następuje automatyczne wyjście z I i Basic oczekuje na dalszą edycję. 


kS znak — poszukiwanie znaku w linii 


Zlecenie powoduje ustawienie kursora na k-te wystąpienie poszuki- 
wanego znaku zaczynając analizę linii programu na nrawo od aktualnej 
pozycji kursora. Jeżeli szukany znak nie wystąpi, to kursor zajmie 
pierwszą wolną pozycję na końcu linii tekstu. 


kK znak — usuń do k-tego znaku 


Zlecenie powoduje usunięcie z bufora linii wszystkich znaków od 
aktualnego położenia kursora do k-tego wystąpienia wskazanego znaku 
(bez usunięcia wskazanego znaku). Usunięty łańcuch znaków zostanie 
wyświetlony na ekranie pomiędzy znakami dzielenia (/). 


Przykłady działania funkcji EDIT i zleceń edycji. 
Przykład 1. 


W pamięci operacyjnej znajdują się następujące błędne linie programu: 
10 IPUT A,B 

20 FOR I=1 TO 100 STEP —1 

W pierwszej linii należy wstawić literę N po literze I (INPUT) oraz 
dopisać zmienną C po zmiennej B. Natomiast w drugiej linii należy 
usunąć drugie 0 z liczby 100 oraz zmienić parametr za słowem STEP 
z —1 na 2. 
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EDIT 10 

10 -- 

10 I_ 

10 I__ 

10 IN 

10 IN__ 

10 INPUT A,B__ 

10 INPUT A,B,C 
EDIT 20 

20 _— 

20 FOR I=1 TO 10__ 
20 FOR I=1 TO 10/0/— 


20 FOR I=1 TO 10907 STEP —1__ 
20 FOR I=1l TO 10/0/ STEP __ 
20 FOR I=1 TO 100 STEP 2 


CR 

SP (wyświetl pierwszy znak) 
I (insert) 

N (wstaw literę N) 


CTR [ (wyjście z trybu I) 


X (wyświetl linię do końca) 
„Ć (dopisanie ,C) 

CR lub E (kończy EDIT) 
CR 

13SP 

I D (usuń jeden znak) 

X (wyświetl linię do końca) 
2 razy SH+A 

2 (dopisz 2) 

CR lub E kończy EDIT 


Po usunięciu błędów linie 10 i 20 mają następującą postać: 


10 INPUT A,B.C 


20 FOR I=I TO 10 STEP 2 


Przykład 2. 


10 DATA 11,13,17,22,33 


Dane w DATA należy doprowadzić do postaci: 


10 DATA 11,13,15 


EDIT 10 

10 

10 DATA 11,13,1 — 
10 DATA 11,13,1 — 
10 DATA 11,13,15__ 


CR 

12SP 

H (kasuj na prawo + insert) 
5 (dopisz 5) 

CR lub E kończy EDIT 


Powyższą zmianę można wprowadzić następująco: 


EDIT 10 
10 _— 


10 DATA 11,13,1 — 
10 DATA 11,13,1_— 
10 DATA 11,13,15 


CR 

1S7 (odszukanie pierwszej 
cyfry 7) 

H (kasuj na prawo + insert) 
$ (dopisz 5) 

CR lub E kończy EDIT 
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Przykład 3. 


10 DATA 1223,17,22, 33,44, 55 
Z linii 10 należy usunąć liczby 1223 i 17. 


EDIT 10 CR 
10__ 5SP 
10 DATA __ 3K2(usuń znaki od kursora 


do trzeciego 
wystąpienia cyfry 2 bez jej 
usunięcia) 

10 DATA 1223,17, _— CR lub E kończy EDIT 


Przykład 4. 


10 IFA >=B THEN 40 
Ciąg znaków A >= B należy zastąpić ciągiem znaków C€ <= D. 


EDIT 10 CR 

10_— 3SP 

10 IF__ 4C 

10 IF__ C <= D (dopisz € <= D) 
I0IFC<=D_ CR lub E kończy EDIT 


4.3. Tryb realizacji programu 


Mikrokomputer wykonuje program w języku Basic po podaniu rozkazu 
RUN. Rozpoczynając wykonanie programu Basic zeruje wszystkie 
zmienne numeryczne, a zmiennym łańcuchowym przypisuje łańcuchy 
puste. 


4.4. Tryb systemowy 


Umożliwia wywołanie programów w języku maszynowym — patrz 
SYSTEM w trybie bezpośrednim. 


S 
Opis klawiszy funkcyjnych 


CR 


Kończy wprowadzanie informacji przez użytkownika we wszystkich 
trybach pracy. 


SP 
Znak spacji. 
SH 


SHIFT. Przełącza klawiaturę na górny rejestr znaków. 


CTR (SH + W) 


Klawisz funkcyjny. Powoduje wygenerowanie kodu dużej litery po- 
mniejszonego o 64, np. C=67, CTR+C€=3 


= (SH +A) 


Cofnięcie kursora i skasowanie ostatniego znaku z ekranu. 


> (SH +8) 


Znak tabulacji poziomej. Powoduje przesuwanie kursora do każdej 
pierwszej pozycji tabulacji poziomej, tj. 0.8,16,24... 
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l (SH + Z) 

Znak nowej linii. Powoduje przesunięcie kursora do pierwszej pozycji 
nowej linii. ę 

CTR Y (SH + W,Y) 


Znaki są pisane na ekranie w polach o parzystych numerach. Instrukcja 
CLS kasuje CTR Y. 


CTR X (SH + W,X) 

Kasowanie pisanej linii i cofnięcie kursora do początku linii. 
CTR [ (SH + W,SH + U) 

Znak powoduje wyjście ze zleceń trybu EDIT. 

CTR A (SH + W,A) 

BREAK. Przerwanie wykonywanego programu. 

CTR L (SH + W,L) 


CLEAR. Kasowanie całego ekranu i ustawienie kursora na pozycję 
HOME oraz kasowanie CTR Y. 


SH P (SH + P) 


Powoduje skasowanie całego ekranu bez zmiany położenia kursora. 


SH I (SH + I) 

Znak pauzy. Powoduje zatrzymanie wykonywanego programu łącznie 
z zatrzymaniem wyświetlania komunikatów i wyników obliczeń. Akcja 
programu jest wznawiana po puszczeniu klawisza I. 
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Obsługa mikrokomputera 


Po włożeniu taśmy magnetofonowej z programem Basic do magnetofo- 
nu, należy ustawić właściwy poziom sygnału na jego wyjściu głośni- 
kowym przy pomocy regulatora siły głosu. Przy poprawnie ustawionym 
poziomie sygnału na wyjściu, poziome paski wyświetlane na ekranie 
wokół pola alfanumerycznego podczas trwania tzw. rozbiegówki będą 
węższe niż przerwy między nimi. Po ustawieniu poziomu sygnału należy 
cofnąć taśmę do początku rozbiegówki i przy pomocy procedury 
L systemu MONITOR COBRA wczytać program z taśmy do pamięci 
operacyjnej. Przy prawidłowo wczytującym się programie mikrokom- 
puter po przyjęciu kolejnego bloku programu Basic. sygnalizuje sy- 
gnałem dźwiękowym oraz zgaszeniem lub zapaleniem prawego górnego 
pola ekranu gotowość przyjęcia następnego bloku. Po wczytaniu się 
całego programu pojawi się napis STOP TAPE!. W przypadku wystą- 
pienia przekłamania pojawi się napis TAPE ERROR. przestanie migać 
narożne pole oraz nie będzie uruchamiany sygnał dźwiękowy. W tej 
sytuacji należy zatrzymać magnetofon i cofnąć taśmę o 20 + 30cm oraz 
uruchomić magnetofon powtórnie. Program na taśmie jest podzielony na 
32-bajtowe bloki, z których każdy posiada w pamięci adres, od którego 
ma być wpisany oraz sumę kontrolną. Taka organizacja w przypadku 
wystąpienia przekłamania podczas wczytywania programu nie wymaga 
przewijania do początku taśmy. Po wczytaniu programu Basic należy go 
uruchomić za pomocą instrukcji: 
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G:0 CR 

Jeżeli istnieje możliwość podłączenia np. drukarki poprzez układ PIO 
lub USART, to przed uruchomieniem języka Basic należy dopisać dwie 
procedury w języku maszynowym. Pierwsza procedura będzie progra- 
mować nasz ikład PIO lub USART i musi ona znajdować się w obszarze 
pamięci od adresu 3000H do 300FH. Procedura musi kończyć się 
instrukcją zerowania akumulatora iskoku do adresu 0674H (AF, C3, 74, 
06). Druga procedura realizuje wysłanie znaku na drukarkę oraz 
badanie gotowości przyjęcia nowego znaku przez drukarkę. Procedurę 
tę należy umieścić w obszarze pamięci od adresu 3010H i zakończyć 
instrukcją RET(C9). Przy wywołaniu procedury wysłania znaku na 
drukarkę, program powoduje umieszczenie znaku w rejestrze A mikro- 
procesora (w akumulatorze). Po umieszczeniu obu procedur w pamięci, 
można je zapisać na taśmie bezpośrednio za językiem Basic za pomocą 
instrukcji SAVE. 

S: 3000,302F (włączyć magnetofon na nagrywanie i nacisnąć CR). 

W ten sposób po wczytaniu języka Basic oraz procedur dodatkowych 
i po uruchomieniu programu, możemy używać takich instrukcji jak 
LPRINT, LLIST, itd. : 

Chcąc korzystać z instrukcji graficznych, jak SET, RESET należy 
wymienić generator znaków na pamięć EPROM 2716 oprogramowaną 
według zamieszczonego wydruku. 

Po naciśnięciu CR ekran zostanie skasowany oraz w lewym górnym rogu 
pojawi się napis MEMORY SIZE? — 

Język Basic wymaga minimum 32 kbajty pamięci, ponieważ sam zajmuje 
obszar od 0 do 302F, a zmienne oraz jego pamięć operacyjna są 
umieszczone począwszy od adresu 4000H. Przy obszarze pamięci 
32 kbajty po pytaniu MEMORY SIZE? należy podać liczbę 32500 
i zakończyć znakiem CR. Jeżeli w mikrokomputerze jest 48 kbajtów 
pamięci RAM, to możemy nie podawać liczby 49151, a tylko nacisnąć 
znak CR. Po naciśnięciu CR, Basic sam określi koniec pamięci opera- 
cyjnej. Po uruchomieniu języka Basic, na ekranie pojawi się napis: 
MEMORY SIZE? 32500 

*BASIC COBRA» 

READY 

> 
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Pozioma kreska za znakiem większości jest kursorem i wskazuje miejsce 
wprowadzenia następnego znaku. 

Ekran posiada organizację: 32 znaki w linii i 24 linie, czyli 768 pól 
alfanumerycznych. Przy użyciu instrukcji graficznych SET i RESET, na 
ekranie można umieścić 64 punkty poziomo i 72 pionowo. W lewym 
górnym rogu znajduje się pole alfanumeryczne oznaczone numerem 0, 
a w prawym dolnym — pole o numerze 767. Dla instrukcji graficznych 
współrzędna X przyjmuje wartość od 0 do 63 (0 z lewej strony ekranu) 
a współrzędna Y od O do 71 (0 na górze ekranu). W normalnym trybie 
pracy w linii ekranu znajdują się dwa pola szesnastoznakowe. 
Podczas redakcji tekstu możemy przesuwać kursor do początku pól 
ośmioznakowych za pomocą znaku + (SH+S) i wtedy będą to pola 
o numerach 0, 8, 16, 24. Jest to tabulacja pozioma. 
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Wykaz sygnalizowanych błędów 
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KOD 


OZNACZENIE 


NF 


SN 


RG 


OD 


FC 


OV 


PRZYCZYNA WYSTĄPIENIA BŁĘDU 


NEXT without FOR 
Brak instrukcji FOR przed użytą instrukcją 
NEXT. 


Syntax Error 

Błąd składni. 

RETURN without GOSUB 

Brak instrukcji GOSUB przed użytą instruk- . 
cją RETURN. 

OUT of DATA 

Brak danych dla instrukcji READ z instrukcji 
DATA. Występuje też przy instrukcji INPUT 
+ — I w przypadku braku danych na taśmie. 
Illegał Function Call 

Nieprawidłowe użycie funkcji (np. LOG(0), 
SQR(- 5), RND(— 3)). 

Overflow 

Wartość liczbowa użyta w operacji przekra- 
cza zakres argumentu użytej instrukcji (np. dla 
CINT liczba mniejsza niż — 32768). 


KOD 


5 Basic 


OZNACZENIE 


OM 


UL 


BS 


DD 


/0 


TM 


OS 


LS 


ST 


PRZYCZYNA WYSTĄPIENIA BŁĘDU 


Out of Memory 
Brak pamięci dla programu lub macierzy. 


Undefined Line 
Skok do nieistniejącej linii programu. 


Subscript out of Range 
Wskaźnik elementu macierzy poza zadeklaro- 
wanym wymiarem. 


Redimensioned Array 
Próba deklaracji macierzy (DIM) o nazwie 
macierzy już istniejącej. 


Division by zero 
Dzielenie przez zero. 


Illegal Direct 
Próba wykonania INPUT w trybie bezpo- 
średnim. 


Type Mismatch 

Użycie w wyrażeniu arytmetycznym zmiennej 
łańcuchowej i odwrotnie (np. A$=123, 
SIN(A$)). Występuje też w sytuacji, gdy zmien- 
na pętli FOR-NEXT była deklarowana przez 
instrukcję DEFDBL. 


Qut of String Space 
Zapełnienie obszaru pamięci łańcuchów. 


String Too Long 
Długość łańcucha większa niż 255 znaków. 


String Formula Too Complex 

Operacja zbyt skomplikowana na zmiennych 
łańcuchowych. Wykonać przy pomocy kilku 
prostszych. 
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KOD 


17 


19 


OZNACZENIE 


CN 


NR 


RW 


UE 


MO 


FD 


PRZYCZYNA WYSTĄPIENIA BŁĘDU 


Can not Continue 
Brak możliwości dalszego wykonywania pro- 
gramu po BREAK. 


NO RESUME 
Brak instrukcji RESUME po ON ERROR 
GOTO. 


RESUME without ERROR 
Brak instrukcji ON ERROR GOTO przed 
użytą instrukcją RESUME. 


Unprintable Error 
Kod błędu w instrukcji ERROR jest większy 
od 23. 


Missing Operand 
Brak parametru (np. PRINT 2[). 


BAD File Data 
Błędne dane z taśmy lub inna kolejność. 
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Adresy wybranych procedur 
maszynowych 
języka Basic-COBRA 


Wszystkie kody i adresy są podane w kodzie heksadecymalnym. 


Adres HEX. 

0002 Skok do procedury programującej układ współpracujący 
z drukarką. 

0028 Skok do BREAK. Po wykonaniu instrukcji: 
POKE 16396, 175: POKE 16397, 201 
((400C)=AF, (400D)=C9) nastąpi zablokowanie działania 
BREAK. 

0049 Pobierz znak z klawiatury. 

0066 - Start BASIC (tzw. „gorący ”). 

0132 POINT A=00 (A — argument) 

0135 SET A =80 

0138 RESET A=0I 

0I3A Wyznaczenie adresu pamięci RAM ekranu i maski dla funkcji 
semigraficznych. 

019D INKEY$ 

0169 CLS — kasowanie ekranu. 

01D3 Odczytanie rejestru R (REFRESH) dla RANDOM. 

01D9 Zapisanie impulsu na taśmę magnetofonową. 

022C * Miganie gwiazdki w prawym górnym rogu ekranu. 

0235 Czytanie bajtu z taśmy — wynik w A. 
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0241 


0261 
0264 
0284 


0293 


02A9 
02B2 
02CE 
0314 

032A 


033A 
0348 


0361 


038B 


039C 


03C2 
03E3 
0458 
04C0 
04CE 
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Czytanie bitu z taśmy i składanie bajtu 

(A =2+A +bit) 

Dwukrotne zapisanie bajtu z A na taśmę. 

Zapisanie bajtu z A na taśmę. 

Zapis 255 bajtów zer (00) i bajtu A$5 na taśmę, tzw. „rozbie- 
gówka”. 

Czytaj taśmę i czekaj na znak A5 oraz zapalenie gwiazdki na 
ekranie. 

Czytanie dwóch bajtów będących adresem startu dla SYSTEM. 
SYSTEM 

Wczytanie zbioru z taśmy. 

Wczytanie z taśmy dwóch bajtów do pary rejestrów HL. 
Znak w A. W zależności od zawartości komórki pamięci om 
znak z A jest zapisany 


— na ekran, gdy (409C) = 

— na drukarkę, gdy (409C)=01 

— na taśmę, gdy (409C)=80 

Znak z A na ekran i modyfikacja POS w komórce 40A6. 
Ustawienie nowej wartości POS w A. 


Wczytanie max. 240 znaków do bufora. W parze rejestrów (HL) 
jest adres bufora. 


Wysłanie znaku CR (0D) na drukarkę. 
Jeżeli głowica nie jest na pozycji 0, to wtedy do komórki (409C) 
jest wpisane 0. 


Wysłanie znaku na drukarkę. Komórka pamięci (409B) jest 
licznikiem znaków. 

Dla znaków sterujących LF,FF,CR (0A,0C,0D) przyjmuje 
wartość 0. 


Obsługa wejścia-wyjścia. 

Szybka obsługa klawiatury. 

Wypisanie znaku na ekran. 

Kursor na pozycję HOME (00). 

Cofnięcie kursora i skasowanie ostatniego znaku z ekranu — 
BACKSPACE (08) 


04DA 
04E7 
04EC 
04F 1 
04F6 


0506 
0541 


0564 


0573 


057C 


Cofnięcie kursora < (18). 

Przesunięcie kursora w dół | (1A). 

Przesunięcie kursora na nasjępną pożycję > (19). 
Przesunięcie kursora do góry 1 (1B). 

Pisanie znaków na ekranie tylko po parzystych wartościach 
POS. Parametr w (403D). 

Dekodowanie kodów sterujących procedury ekranowej. 
Wypisanie znaku na ekran iewentualnie przesuw całego obrazu 
o jedną linię w górę (Scroll). 

Nowa linia — odpowiada wysłaniu znaków CR i LF, gdzie: 
CR(0D) — powrót kursora do początku linii. 

LF(0A) — zmiana linii. 

Kasowanie wszystkich znaków od pozycji kursora do końca 
linii (1E). 

Kasowanie wszystkich znaków od pozycji kursora do końca 
ekranu (IF). 


Adresy funkcji matematycznych i podstawowych operacji arytmetycz- 
nych. Funkcje matematyczne operują daną umieszczoną w rejestrze 
"X", który jest zbudowany z komórek pamięci o następujących adresach: 


INT STR  SNG  DBL 


411D (16669) LSB 
411E (16670) LSB 
411F (16671) LSB 
4120 (16672) LSB 
4121 (16673) LSB LSB LSB LSB 
4122 (16674) MSB MSB LSB LSB 
4123 (16675) Adres MSB  MSB 
4124 (16676) "ia EXP EXP 


Przy operacjach arytmetycznych jest wykorzystywany dodatkowo 
rejestr "Y” o podobnych właściwościach, jak ”X”. Zajmuje on komórki 
pamięci od adresu 4127(16678) do 412E(16686). 
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Funkcje matematyczne 
0977 X=ABS(X) 
15BD X=ATN(X) 
0ADB X =CDBL(X) 
0A7F X=HL=CINT(X) 
0ABI X=CSNG(X) 
1541 X=COS(X) 
1439 X=EXP(X) 
0B26 X=FIX(X) 
0B37 X=INT(X) 
0809 X=LOG(X) 
14C9 X=RND(X) 
098A X=SGN(X) 
1547 X=SIN(X) 
13E7 X=SQR(X) 
I5A8 X=TAN(X) 
14F0 X=RND(0) 


Argument 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
INT,SNG,DBL 
I 
I 
I 
I 
I 
I 
I 


INT — całkowite 
SNG — pojedynczej precyzji 
DBL — podwójnej precyzji 


Operacje arytmetyczne: 


0B2D X=DE+HL INT 
0BC7 X=DE-—HL INT 
0BF2 X=DE:HL INT 
2490  X=DE/HL INT 
0716 X=BCDE+X SNG 
0713  X=BCDE-X SNG 
0847  X=BCDE+xX  SNG 
08A2 X=BCDE/X  SNG 


0C77 X=X+Y DBL 
0C70 X=X-Y DBL 
ODA! X=X»=Y DBL 
0DES X=X/Y DBL 
093E X=Xas=l0 SNG 


0E4D X=Xx=l0 DBL 
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Wynik 


SNG 
DBL 
INT 

SNG 
SNG 
SNG 


NG 
NG 
NT 

NG 
NG 
NG 
NG 


MUM MU -= (U 0 


OFOA X=Xax=1l0 SNG,DBL 


0897 X=X/10 SNG 
0DDC X=X/10 DBL 
0FI8 X=X/10 SNG,DBL 
0708 X=X+5 SNG 


070B X=(HL)+X  SNG 
0710 X=(HL)-X  SNG 
OSA0  X=(SP)/X SNG 
097B X=-X SNG,DBL.INT 


Symbol (SP) oznacza sekwencję: 
08A0 POP BC 

08A1 POP DE 

08A2 = X =BCDE/X 


Symbol (HL) oznacza sekwencję: 
LD E, (HL) 

LD D, (HL+ 1) 

LD C, (HL+2) 

LD B, (HL+3) 


W obu tych operacjach ((SP), (HL)) argument typu SNG jest umiesz- 
czony w rejestrach BCDE. Rejestr B zawiera wykładnik potęgi (EXP), 
C zawiera MSB, a Di E — LSB. Wykładnik potęgi jest w postaci 
nadmiarowej (+80 HEX.). 


Instrukcje porównania: 


0018 CP HL,IDE HLiDE HL=DE dla Z=1 

0A0C CP X,BCDE SNG X<BCDE A=FF CY=1 
X=BCDE A=00 CY=0 
X>BCDE A=01 CY=0 

0A39 CP HLDE INT HL<DE A=FF CY=1 
HL=DE A=00 CY=0 
HL>DE A=01 CY=0 

0A4F CP XY DBL X<Y A=FF CY=1 
X=Y A=00 CY=0 
X>Y A=01 CY=0 


| II 
OCOOOCOOCO-O 


Il 


NNNNNNNUÓUN 
jj Il 
CO = 
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Operacje pomocnicze do przesyłania argumentów: 


09A4 (SP)=X SNG 


09B1 X=BCDE=(HL)  SNG 
09B4 X=BCDE SNG 
09BF BCDE=X SNG 
09C2 BCDE=(HL) SNG 
09CB (HL)=X SNG 
09F4 X=Y DBL 
09F7 X=(HL) SNG lub DBL 
09FF (HL)=X SNG lub DBL 
0A9A X=HL INT 


W komórce o adresie 40AF znajduje się parametr VT i przyjmuje on 
wartość: 


02 — INT 
03 — STR 
04 — SNG 
08 — DBL 


W zależności od parametru VT odpowiednio jest wykenywana operacja 
arytmetyczna. 
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Adresy wybranych komórek 
systemowych 


400C = 400E 


4020 = 4021 
4022 

4028 

4029 
4090 = 4092 
409A 

409B 

40A0 = 40A1 
40A4 = 40A5 
40A6 
40A7 — 40A8 
40AF 
40B1 -- 40B2 
40B3 -- 40B4 
40E2 -- 40E3 
40E4 -- 40E5 
40EC = 40ED 
40F0 -- 40F1 
40F2 


Adres przerwania. 

Adres kursora w pamięci wizji. 

Znak z pola kursora. 

Maksymalna liczba wierszy na stronę drukarki + 1. 
Liczba wyprowadzonych wierszy na stronie. 
Mantysa mnożnika dla funkcji RND = 0.253514. 
Ostatni kod błędu. 

Liczba wyprowadzonych znaków w bieżącym wierszu 
drukarki. 

Początkowy adres pamięci łańcuchów. 

Adres początku programu napisanego w języku Basic. 
Pozycja kursora w wierszu na ekranie dla funkcji POS. 
Wskaźnik bufora wiersza programu. 

Typ VT dla zmiennej w rejestrze X. 

Adres szczytu obszaru dostępnej pamięci — 256. 
Adres najbliższej wolnej komórki pamięci w tabeli 
łańcuchów. Tabela od 40B5 do 40D2. 

Aktualny numer wiersza dla AUTO. 

Wartość kroku dla AUTO. 

Numer ostatnio redagowanego wiersza. 

Numer wiersza ON ERROR GOTO. 

Wskaźnik: włączenia ON ERROR GOTO <> 0. 
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40F5 -- 40F6 


40F9 -- 40FA 
40FB = 40FC 
40FD = 40FE 
40FF = 4100 
4101 = 411A 


411B 


Numer następnego wiersza dla CONT po BREAK, 
END, STOP lub ERROR. 

Adres początku obszaru zmiennych. 

Adres obszaru macierzy. 

Adres początku wolnej pamięci. 

Adres następnej wartości DATA, 

Obszar dla znacznika typu zmiennych. Kolejne komór- 
ki pamięci od adresu 4101 odpowiadają literom 
nazwom zmiennych: 


4101 A 
4102 B 
4103 — C 
4IA— Z 


Podczas definiowania ' (DEFINT, DEFSTR, 
DEFSNG, DEFDBL) typu zmiennej, do komórek 
o podanych adresach są wpisywane kody: 

02 — DEFINT 

03 — DEFSTR 

04 — DEFSNG 

08 DEFDBL 

Znacznik funkcji śledzenia programu 

00 = TROFF, AF = TRON 
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Mapa pamięci mikrokomputera 
COBRA 


0000 = 302F ' Język Basic. 

30302 3FFF Obszar niewykorzystany pamięci RAM. 
Może służyć do lokalizacji procedur napisanych w ję- 
zyku maszynowym i wywołanych instrukcją USR(X). 

4000 = 42E8 Pamięć RAM dla potrzeb języka Basic. 

42E9 = BE8C Obszar RAM dla programu w języku Basic. 

C000 + C7FF MONITOR COBRA. 

F800 = FAFF RAM monitora ekranowego. 


Dodatek l 
Alfabetyczny spis instrukcji 


języka Basic-COBRA 


— 


m om M M M M M — 
O © O WM R > NW 


R» NM 5 
KR * © 


— 
D 


ja 
O © © JOUAW PD 


. ABS(X) 17 
„AND 13 


ASC (łańcuch) 47 
ATN(X) 17 


. AUTOn,k 50 

. CDBL(X) 17 

. CHR$(X) 47 

. CINT(X) 17 
„CLEAR X 30 

, CLOAD ”nazwa” 51 
. CLOAD? "nazwa” $ŚI 
.CLS 38 

.CONT 52 

. COS(X) 18 

. CSAVE *”nazwa” 52 
. CSNG(X) 18 

. DATA dana 27 

. DEFDBL lista 31 

. DEFINT lista 31 

. DEFSNG lista 31 

. DEFSTR lista 31 

. DIM X(x,, X, ...X„) 32 


23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31: 
32. 
33. 
34. 
35. 
36. 
31: 
38. 
39. 
40. 
41. 
42. 
43. 
44. 


DELETE n, —n» 
EDIT n 52 
END 31 

ERL 38 
ERR/2+1 38 


ERRORnumer 31 


EXP(X) 18 
FIX(X) 19 
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FOR..TO..STEP 36 


FRE(łańcuch) 49 
GOSUB n 33 
GOTO n 33 
IF...THEN..ELSE 
INKEY$ 48 
INP(port) 42 
INPUT lista 26 
INPUT + — L,lista 
INT(X) 18 
LEFT$(łańcuch,n) 
LEN(łańcuch) 49 
LET zmienna =.. 
LIST n, —n, 52 


45 


29 


. LLIST n, —n, 52 68. PRINT+ — l.lista 25 


. LOG(X) 19 69. RANDOM 20 

. LPRINT lista 26 70. READ lista 28 

. LPRINT TAB(X) 26 1.REM 2 

. LPRINT USING 72. RESET(X,Y) 359 
łańcuch; lista 26 73. RESTORE 29 

. MEM 43 74. RESUME 35 

. MID$(łańcuchm,n) 46 75. RETURN 54 

.NEW 53 16. RIGHT$(łańcuch.n) 46 

. NEXT 36 77. RND(X) 19 

. NOT 13 78. RUN 53 

. ON ERROR GOTO n 35 79. SET(X,Y) 39 

. ON..GOTO.. 33 80. SGN(X) 20 

. ON..GOSUB.. 34 81. SIN(X) 20 

"ÓR: 43 82. SQR(X) 20 

. OUT port, dana 43 83. STOP 30 

. PEEK(Adr) 40 84. STR$(X) 47 

. POINT(X,Y) 40 85. STRING$(n,X) 46 

. POKE Adr,dana 41 86. SYSTEM 55 

. POS(X) 39 87. TAN(X) 20 

. PRINT lista 21 88. TROFF 53 

. PRINT Qnllista 22 89. TRON 53 

. PRINT TAB(X),lista 23 90. USR(X) 41 

. PRINT USING 91. VAL(łańcuch) 48 


łańcuch, lista 23 92. VARPTR(zmienna) 43 


Dodatek » 


Wykaz znaków semigraficznych 


H HORSE OR 
WNATSKAM 
JOODWEWE 
SE ---L-L- 
UNESSĘKSK 
FEEEELEL 
JOOSEECE 
"-EETLTLL_ 
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Dodatek 3 


Wydruk zawartości generatora znaków 


D:0+37F 


0000 00 00 00 
0010 OF OF OF 
0020 00 00 00 
0030 OF OF OF 
0040 00 20 40 
0050 10 10 10 
0060 FF FE FC 
0070 80 CO EQ 
0080 AA 55 AA 
0490 00 00 00 
00A0 QA 05 GA 
00B0 00 00 00 
0000 43 25 7A 
00D0 00 00 FC 
00E0 00 BO EQ 
00F0 00 00 ZC 
0100 00 00 00 
0110 00 14 14 
0120 00 OB 1E 
9130 00 10 28 
0140 00 OB 10 
0150 00 08 ZA 
0160 00 00 00 
0170 00 00 00 
0180 00 10 22 
0190 00 1C 22 
01A0 00 04 OC 
01BO 00 OE 10 
0100 08 1C 22 
0110 00 00 00 
01E0 00 04 08 
01FO 00 10 08 
0200 00 1C 22 
0210 00 3C 22 
0220 00 3C 22 
0230 00 3E 20 
0240 00 22 22 
0250 00 02 02 
0260 00 20 20 : 
0270 00 22 22 
0280 09 3C 22 
0290 00 3C 22 2 
02A0 00 ZE 2A 
0280 00 22 22 
0200 00 22 22 
0210 00 3E 02 
02E0 00 00 20 
02F0 00 08 1C 

0300 00 10 08 
0310 00 20 20 AC 
0320 00 02 02 
0330 00 04 08 
0340 00 20 20 ZC 
0350 00 08 00 
0360 00 18 08 
0370 00 00 00 ZC 


LASMI: 


D:380,5FF 


0380 00 3C 22 22 22 3C 20 20 00 1E 22 22 22 1E 02 02 
03970 00 90 00 16 18 10 10 10 00 00 00 iE 20 1C 02 3C 
03AQ 00 00 08 1C 08 08 08 04 00 00 00 22 22 22 22 1E 
03B0 00 00 00 22 22 14 14 08 00 00 00 22 22 ZA ZA 14 
03C0 00 00 00 22 14 08 14 22 00 22 22 22 22 1E 02 ©C 
©3D0 00 00 00 3E 04 08 10 ZE 90 04 08 08 10 08 08 04 
03EQ0 00 08 08 08 08 08 08 08 00 10 08 08 04 08 08 10 
03FQ 00 00 00 40 00 40 00 00 55 AA 55 AA 55 AA 55 AA 
0400 00 00 00 00 00 00 00 00 FO FO FO 00 00 00 00 00 
0410 OF ©F OF 00 00 00 00 00 FF FF FF 00 00 00 00 00 
0420 00 00 00 FO FO 00 00 00 FO FO FO FO FO 00 00 00 
0430 OF OF OF FO FO 00 00 00 FF FF FF FO FO 00 00 00 
0440 00 00 00 OF OF 00 00 00 FO FO FO OF OF 60 00 00 
0450 OF OF OF OF OF 00 00 QQ FF FF FF OF ©F 00 00 00 
0460 00 00 00 FF FF 00 00 Q0 FO FO FO FF FF 00 00 00 
0470 OF OF QF FF FF 00 QQ 0 FF Fr FF FF FF 00 00 00 
0480 00 00 00 00 00 FO FO FO Fo FO FO 00 00 FO.FO FO 
0490 OF OF QF 00 00 FO FO FO FF FF FF 00 90 FO FO Fo 
0430 00 00 00 FO FO Fo FO FO Fo FO FO FO Fo Fo FO Fo 
04B0 OF OF OF FO FO FO FO FO FF FF FF Fo FO Fo Fo Fo 
04C0 00 00 00 OF OF Fo FO FO FO FO FO OF OF FO FO Fo 
0400 OF OF OF OF OF FO Fo FO FF FF FF OF OF Fo Fo Fo 
04E0 00 00 00 FF FF Fo FO Fo FO Fo Fo FF FF Fo Fo Fo 
04FO OF OF,OF FF FF FO FO Fo FF FF FF FF FF Fo Fo Fo 
0500 00 00 00 00 00 OF OF OF FO FO FO 00 00 OF OF OF 
0510 OF OF OF 00 00 ©F OF OF FF FF FF 00 00 OF OF OF 
0520 00 00 00 FO FO OF OF OF FO FO FO FO Fo OF OF OF 
0530 OF OF OF Fo FO OF OF OF FF FF FF Fo FO OF OF OF 
0540 00 08 00 OF OF OF OF OF FO Fo FO OF OF ©F OF OF 
0550 OF OF OF OF OF OF OF OF FF FF FF OF OF OF OF OF 
0560 00 00 00 FF FF OF OF OF FO FO FO FF FF OF OF 0F 
0570 OF OF OF FF FF OF OF OF FF FF FF FF FF OF OF ©F 
0580 200 00 00 00 00 FF FF FF Fo FO FO 00 00 FF FF FF 
0590 OF OF OF 00 00 FF FF FF FF FF FF 00 00 FF FF FF 
OSAQ 00 Q0 00 FO FO FF FF FF FO FO FO FO FO FF FF FF 
05BO OF OF OF FO FO FF FF FF FF FF FF FO Fo FF FF FF 
05CQ 00 00 00 OF OF FF FF FF Fo Fo Fo OF OF FF FF FF 
05DQ OF ©F ©F OF OF FF FF FF FF FF FF QF ©F FF FF FF 
05E0 00 00 Oc FF FF FF FF FF Fo FO FO FF FF FF FF FF 
©5FQo OF OF OF FF FF FF FF FF FF FF FF FF FF FF FF FE 


CASMI: 
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